DelphiScript - Working With Date Values

Applies to TestComplete 15.45, last modified on December 01, 2022

This topic explains how to work with date values in DelphiScript and gives examples of date operations. It contains the following sections:

Basics

When writing scripts we often deal with dates. There are certain date value formats and TestComplete routines that help handle dates.

Since the TestComplete scripting engine only supports OLE-compatible data types, the date-time values are implemented as floating-point variant values in a special format. The integer part of this value represents the number of days that have passed since December 30, 1899. The number after the decimal separator represents the fraction of a 24-hour period that has elapsed. However, you do not have to understand what these floating-point values represent. TestComplete provides several routines that help you convert these values to their string representation (see below).

Below are some examples of date-time values and their meaning:

Value Meaning
0.25 December 30, 1899. 6:00 AM
36345.5 July 4, 1999. 12:00 PM
39094.65625 January 12, 2007. 3:45 PM

When you are only working with date values the fractional part can be omitted.

Objects and Functions for Working With Date Values

TestComplete has the aqDateTime object that contains methods that can be useful when operating with dates.

Method Description
AddDays Adds or subtracts the specified number of days to (from) the given date.
AddMonths Adds or subtracts the specified number of months to (from) the given date.
AddTime Adds or subtracts the specified number of days, hours, minutes and seconds to (from) the given date.
Compare Compares two specified date/time values.
GetDay Returns the ordinal number of a day in a month.
GetDayOfWeek Returns the day of the week for the specified date.
GetDayOfYear Returns the ordinal number of a day in a year.
GetMonth Returns the month number of the specified date.
GetYear Returns the year number of the specified date.
IsLeapYear Indicates whether the specified year is a leap year.
Now Returns the current date and time.
SetDateElements Returns the Date variable having the specified year, month and day.
SetDateTimeElements Returns the Date variable having the specified date and time portions.
SetSystemDateTime Assigns the specified date and time as the system date and time.
Today Returns the current date.

One more object, aqConvert, provides methods to convert strings between date values and their string equivalents:

Method Description
DateTimeToFormatStr Converts the given date value to a string using the specified format.
DateTimeToStr Converts the given date value to a string.
StrToDate Converts the specified string to a date value.
StrToDateTime Converts the specified string to a date/time value.

The aqDateTime and aqConvert objects are available for all supported scripting languages, so that you can use them to operate with date values regardless of the chosen language.

Getting Current Date

There are two routines that return current date: Today and Now. The difference between them is that the value returned by the Now routine includes both the date and time parts, whereas the Date routine returns only the date part. The script below demonstrates how to use them.

DelphiScript

function GetDate();
var TodayValue, NowValue, StringTodayValue, StringNowValue, VariantTodayValue, VariantNowValue: OleVariant;
begin

  // Obtain the current date
  TodayValue := aqDateTime.Today();

  // Obtain the current date and time
  NowValue := aqDateTime.Now();
  
  // Convert the returned date/time values to the string values
  StringTodayValue := aqConvert.DateTimeToStr(TodayValue);
  StringNowValue := aqConvert.DateTimeToStr(NowValue);

  // Post the converted values to the log
  Log.Message('The date obtained from the Today routine is ' + StringTodayValue);
  Log.Message('The date obtained from the Now routine is ' + StringNowValue);
  
  // Convert the floating-point values to the string values
  VariantTodayValue := aqConvert.FloatToStr(TodayValue);
  VariantNowValue := aqConvert.FloatToStr(NowValue);

  // Post the converted values to the log
  Log.Message('The variant representation of TodayValue is ' + VariantTodayValue);
  Log.Message('The variant representation of NowValue is ' + VariantNowValue)
end;

Getting Tomorrow’s and Yesterday’s Dates

The sample below demonstrates how the aqDateTime object can be used to calculate tomorrow's date. The current date is obtained via the aqDateTime.Today method. Then the current date value is incremented via the aqDateTime.AddDays method. The DateTimeToStr method of the aqConvert object is used to convert the date value into a string that is posted to the TestComplete log.

DelphiScript

function TomorrowDate: TDateTime;
var CurrentDate, Tomorrow, Today, ConvertedTomorrowDate: OleObject;
begin
  // Obtain the current date
  CurrentDate := aqDateTime.Today;

  // Convert the date/time value to a string and post it to the log
  Today := aqConvert.DateTimeToStr(CurrentDate);
  Log.Message('Today is ' + Today);

  // Calculate the tomorrow’s date, convert the returned date to a string and post this string to the log
  Tomorrow := aqDateTime.AddDays(CurrentDate, 1);
  ConvertedTomorrowDate := aqConvert.DateTimeToStr(Tomorrow);
  Log.Message('Tomorrow will be ' + ConvertedTomorrowDate);
  Result := Tomorrow;
end;

In a similar way you can calculate any date that differs from the current day by a certain amount of days: yesterday, next or previous week and so forth. For example to get yesterday’s date you have to pass to the aqDateTime.AddDays method -1 value as the second (Days) param.

DelphiScript

function YesterdayDate: TDateTime;
var CurrentDate, Today, YesterdayDate, ConvertedYesterdayDate: TDateTime;
begin
  // Obtain the current date
  CurrentDate := aqDateTime.Today;

  // Convert the date/time value to a string and post it to the log
  Today := aqConvert.DateTimeToStr(CurrentDate);
  Log.Message('Today is ' + Today);

  // Calculate the yesterday’s date, convert the returned date to a string and post this string to the log
  YesterdayDate := aqDateTime.AddDays(CurrentDate, -1);
  ConvertedYesterdayDate := aqConvert.DateTimeToStr(YesterdayDate);
  Log.Message('Yesterday was ' + ConvertedYesterdayDate)
end;

Calculating the Year and Month Duration

Generally there are 365 days in a calendar year. However the length of an astronomical year is about 365.242375 days, so in the course of time the fractional part would result in an extra day and the calendar year would lag from the astronomical. To avoid this the leap year that is 366 days long was invented.

The Gregorian calendar is the current standard calendar in most of the world and it adds a 29th day to February in all years evenly divisible by 4, except for centennial years (those ending in -00), which only receive the extra day if they are evenly divisible by 400. The aqDateTime object has a special method IsLeapYear that accepts the year number and returns true if the specified year is a leap year. We can use this method to get the exact number of days in the desired year:

DelphiScript

function DaysInYear(YearNo: Integer): Integer;
begin
  if aqDateTime.IsLeapYear(YearNo) then Result:=366 else Result:=365;
end;

Using the IsLeapYear method we can get the number of days in the month. For all months, except February, the duration of a month is fixed and is either 30 or 31 days. The duration of February is 28 or 29 days depending on whether the current year is a leap year or not. The routine that gets the month duration would be the following:

DelphiScript

function DaysInMonth(MonthNo,YearNo: Integer): Integer;
begin
  case MonthNo of 
    1,3,5,7,8,10,12: Result:=31;
    2: if aqDateTime.IsLeapYear(YearNo) then Result:=29 else Result:=28;
    4,6,9,11: Result:=30;
  end;
end;

Comparing Dates

To compare date/time values, use the aqDateTime.Compare method rather than comparison operators (like =, >, <, <> and others) provided by the scripting engine:

DelphiScript

r := aqDateTime.Compare(DateTime1, DateTime2);
if r > 0 then
  // DateTime1 > DateTime2;
else
begin
  if r < 0 then
    // DateTime1 < DateTime2;
  else
    // DateTime1 = DateTime2;
end;

Encoding and Decoding Date Values

Because the date values are represented as variants, special routines are required that convert the variant value to a calendar date format and back. These operations are performed by the SetDateElements, GetYear, GetMonth and GetDay methods of the aqDateTime object. These methods take into account whether the current year is a leap year and the number of days in a month so that the resulting value is guaranteed to be valid. The SetDateElements accepts the parts of date and returns the variant date value.

DelphiScript

procedure EncodeDateDemo;
var myDate, EncodedDate, VariantDate : TDateTime;
begin
  // Create a Date variable having the specified year, month and day values
  myDate:=aqDateTime.SetDateElements(2005,12,25);

  // Convert the value of the myDate variable to a string using the specified format and post this string to the log
  EncodedDate := aqConvert.DateTimeToFormatStr(myDate,'%B/%#d/%Y');
  Log.Message('The encoded date is '+ EncodedDate);

  // Convert the value of the myDate variable to a variant value and post it to the log
  VariantDate := aqConvert.IntToStr(myDate);
  Log.Message('The variant representation of it is '+ VariantDate);
end;

The GetYear, GetMonth and GetDay methods perform the contrary operation: they accept the variant date-time value and return the respective date parts of that value. Here is an example of how to use these routines:

DelphiScript

procedure DecodeDateDemo;
var CurrentDate : TDateTime;
var Day, Month, Year :Integer;
begin
  // Obtain the current date
  CurrentDate:=aqDateTime.Today;

  // Return the parts of the current date value and then post them to the log
  Year:=aqDateTime.GetYear(CurrentDate);
  Month:=aqDateTime.GetMonth(CurrentDate);
  Day:=aqDateTime.GetDay(CurrentDate);

  Log.Message(aqConvert.IntToStr(Day)+' day(s) have passed since the beginning of the '+aqConvert.IntToStr(Month)+' month of '+aqConvert.IntToStr(Year)+' year.');
end;

Modifying Date Values

Despite the fact that date-time values are represented as floating-point numbers, you cannot explicitly use ordinary arithmetic operators to change dates or times. However, the aqDateTime scripting object provides a number of methods that are especially designed to modify date-time values. These methods are: AddMonths, AddDays and AddTime. The AddTime method allows to modify date and time portions at once.

As you can notice from the Getting tomorrow’s and yesterday’s dates section, these methods are used both for incrementing and decrementing of date-time values. When the positive number is passed as Month, Days or other parameter, then the resulting value is increased. If the parameter is negative, then the resulting value is decreased.

These methods take into account the number of days in the month, whether the year is a leap and other aspects of time calculations, that is why the resulting value is guaranteed to be valid.

The code below demonstrates how to use these methods:

DelphiScript

procedure ModifyDates;
var Date, AlteredDate: TDateTime;
begin
  Date:=aqDateTime.SetDateElements(2007,1,25);

  //Increase the date by 7 days
  //Note the month changing
  AlteredDate:=aqDateTime.AddDays(Date,7);
  Log.Message('Initial date: '+aqConvert.DateTimeToStr(Date));
  Log.Message('Altered date 1: '+aqConvert.DateTimeToStr(AlteredDate));
  
  //Increase the date by one month
  //Note that 28 days were added since the month is February
  AlteredDate:=aqDateTime.AddMonths(AlteredDate,1);
  Log.Message('Altered date 2: '+aqConvert.DateTimeToStr(AlteredDate));
  
  //Decrease the date by 1 day
  AlteredDate:=aqDateTime.AddTime(AlteredDate,-1,0,0,0);
  Log.Message('Altered date 3: '+aqConvert.DateTimeToStr(AlteredDate));
end;

Dealing With Week Days

Besides recognizing the date, month and year, you may need to know which day of the week a certain date falls. The aqDateTime.GetDayOfWeek method performs this task. It accepts the variant date and returns the number of the week day that corresponds to it. The returned number ranges between 1 and 7, where 1 corresponds to Sunday, 2 - to Monday, and so forth. The sample code below obtains the current date, calculates the day of the week and posts the name of the day to the log.

DelphiScript

procedure DayOfWeekDemo;
var WeekDay : Integer;
    DayName : String;
begin
  WeekDay:=aqDateTime.GetDayOfWeek(aqDateTime.Today);
  case WeekDay of
    1: DayName:='Sunday';
    2: DayName:='Monday';
    3: DayName:='Tuesday';
    4: DayName:='Wednesday';
    5: DayName:='Thursday';
    6: DayName:='Friday';
    7: DayName:='Saturday';
  end;
  Log.Message('Today is '+DayName);
end;

Note: The GetDayOfWeek method uses the United States system of week notation where the week is considered to start on Sunday and end on Saturday. However, the ISO 8601 “Data elements and interchange formats - Information interchange - Representation of dates and times” standard recommends another system of a week notation. In this system the week starts on Monday and ends on Sunday. To convert the US Week day number to ISO 8601 you can use the following routine:

DelphiScript

function ISODayOfWeek(InputDate: TDateTime );
begin
  Result:=aqDateTime.GetDayOfWeek(InputDate)-1;
  if (Result=0) then Result:=7;
end;

The result of this function is also an integer number, but 1 corresponds to Monday, 2 to Tuesday and so on.

In addition to the day of the week, we can find out the week boundaries that the specified date belongs, that is, calculate the dates that the week starts and ends. This could be done using the following two routines. Here the number of a week day is subtracted from the specified date to get the beginning of a week, and to get the end of the week, six days are added to the calculated date.

DelphiScript

function StartOfWeek (InputDate: TDateTime = nil);
begin
  //If the input parameter is omitted then current date is taken
  if (InputDate=nil) then InputDate:=aqDateTime.Today;

  //Using US week day number
  Result:=aqDateTime.AddDays(InputDate, - aqDateTime.GetDayOfWeek(InputDate) + 1);

  //Using ISO week day number
  //Result:=aqDateTime.AddDays(InputDate, - ISODayOfWeek(InputDate) + 1);
end;

function EndOfWeek (InputDate: TDateTime = nil);
begin
  //If the input parameter is omitted then current date is taken
  if (InputDate=nil) then InputDate:=aqDateTime.Today;

  //Using US week day number
  Result:=aqDateTime.AddDays(InputDate, - aqDateTime.GetDayOfWeek(InputDate) + 7);

  //Using ISO week day number
  //Result:=aqDateTime.AddDays(InputDate, - ISODayOfWeek(InputDate) + 7);
end;

Note: Since the routines use the aqDateTime.GetDayOfWeek method, which returns the US week day number, the dates returned by the routines are Sunday and Saturday, correspondingly. To apply the ISO 8601 week day notation, you should use the last code line, where the aqDateTime.GetDayOfWeek call is replaced with a call to ISODayOfWeek function. (The code of the ISODayOfWeek function is provided in the note above.) In this case the first routine would return the date that falls on Monday and the second one, the date that falls on Sunday.

Another frequent operation when dealing with dates is calculating the number of weeks that have passed since the beginning of the year. First we should clarify what week should be considered as the first week of a year. According to the ISO 8601 standard, the first week of a year is a week with the majority (four or more) of days in the starting year. In our case it is better to use another equivalent definition of the first week: the week with the date, January, 4th.

Here is the routine that calculates the week number in compliance with this rule. It accepts the date that belongs to the desired week, determines the end of this week and the end of the week that includes January 4, and that calculates the week number as the difference between those two values divided by 7.

DelphiScript

function WeekNumber(InputDate : TDateTime);
var YearNo: Integer;
    EndOfFirstWeek, EndOfCurrentWeek: TDateTime;
begin
  YearNo:=aqDateTime.GetYear(InputDate);
  EndOfFirstWeek:=EndOfWeek(aqDateTime.SetDateElements(YearNo,1,4));
  EndOfCurrentWeek:=EndOfWeek(InputDate);
  Result:= 1+(aqDateTime.GetDayOfYear(EndOfCurrentWeek)-aqDateTime.GetDayOfYear(EndOfFirstWeek))/7;
end;

Sometimes it is useful to know what day of the week the desired month starts or ends. The routines below return the week day number that correspond to the beginning and end of the month. They only have one input parameter that specifies the date which belongs to the desired month. If the parameter is missing then the routines return the results for the current month. The routines are similar to calculating the beginning and end of a the week, but instead of the week day number, the day of the month number is used.

DelphiScript

function StartOfMonthDay (InputDate: TDateTime = nil);
var StartDate: TDateTime;
    DayNo: Integer;
begin
  //If the input parameter is omitted then current date is taken
  if (InputDate=nil) then InputDate:=aqDateTime.Today;
  DayNo:=aqDateTime.GetDay(InputDate);
  StartDate := aqDateTime.AddDays(InputDate,-DayNo+1);

  //Using US week day number
  Result:=aqDateTime.GetDayOfWeek(StartDate);

  //Using ISO week day number
  //Result:=ISODayOfWeek(StartDate);
end;

function EndOfMonthDay (InputDate: TDateTime = nil);
var EndDate: TDateTime;
    YearNo, MonthNo, DayNo: Integer;
begin
  //If the input parameter is omitted then current date is taken
  if (InputDate=nil) then aqDateTime.Today;
  DayNo:=aqDateTime.GetDay(InputDate);
  MonthNo:=aqDateTime.GetMonth(InputDate);
  YearNo:=aqDateTime.GetYear(InputDate);
  EndDate := aqDateTime.AddDays(InputDate, - DayNo + DaysInMonth(MonthNo, YearNo));

  //Using US week day number
  Result:= aqDateTime.GetDayOfWeek(EndDate);

  //Using ISO week day number
  //Result:= ISODayOfWeek(EndDate);
end;

See Also

Working With Dates
DelphiScript - Working With Time Values
aqDateTime Object

Highlight search results