VBScript - Working With Date Values

Applies to TestComplete 15.69, last modified on November 13, 2024

This topic explains how to work with date values in VBScript 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.

You can also use these and other built-in VBScript functions in your scripts. Here is a list of built-in functions that can be useful when dealing with dates:

Function Description
CDate Returns an expression that has been converted to a Variant of subtype Date
Date Returns the current system date. (See a note below to learn about the format of date values in VBScript.)
DateAdd Returns the date to which the specified time interval has been added.
DateDiff Returns the number of intervals between two dates.
DatePart Returns the specified part of a given date.
DateSerial Returns a Variant of subtype Date for the specified year, month, and day.
DateValue Returns a Variant of subtype Date.
Day Returns a whole number between 1 and 31, inclusive, representing the day of the month.
FormatDateTime Returns an expression formatted as a date or time.
IsDate Returns a Boolean value indicating whether an expression can be converted to a date.
Month Returns a whole number between 1 and 12, inclusive, representing the month of the year.
MonthName Returns a string indicating the specified month.
Now Returns the current date and time according to the date and time set on your computer.
Weekday Returns a whole number representing the day of the week.
WeekdayName Returns a string indicating the specified day of the week.
Year Returns a whole number representing the year.
Note: Native VBScript date/time values are stored as strings in the #MM/DD/YYYY HH:MM:SS PM/AM# format. (For example, #1/25/2005 2:17:38 PM#.) These strings are automatically converted to the floating-point variant format when required. In most cases, you can pass a VBScript date to a TestComplete routine or vice versa and get the correct results. However, the initial representation of VBScript date/time values should be kept in mind.

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.

VBScript

Sub GetDate
  Dim TodayValue, NowValue, StringTodayValue, StringNowValue, VariantTodayValue, VariantNowValue

  ' 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 Sub

Getting Tomorrow’s and Yesterday’s Dates

The samples below demonstrate 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 to a string that is posted to the TestComplete log.

VBScript

Function TomorrowDate
  ' 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
  TomorrowDate = aqDateTime.AddDays(CurrentDate, 1)
  ConvertedTomorrowDate = aqConvert.DateTimeToStr(TomorrowDate)
  Log.Message("Tomorrow will be " + ConvertedTomorrowDate)
End Function

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

VBScript

Function YesterdayDate
  ' 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 Function

Comparing Dates

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

VBScript

r = aqDateTime.Compare(DateTime1, DateTime2)
If r > 0 Then
  ' DateTime1 > DateTime2
Else
  If r < 0 Then
    ' DateTime1 < DateTime2
  Else
    ' DateTime1 = DateTime2
  End If
End If 

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:

VBScript

Function DaysInYear(YearNo)
  If aqDateTime.IsLeapYear(YearNo) Then DaysInYear=366 Else DaysInYear=365
End Function

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:

VBScript

Function DaysInMonth(MonthNo,YearNo)
  Select Case MonthNo
    Case 1,3,5,7,8,10,12 DaysInMonth=31
    Case 2 If aqDateTime.IsLeapYear(YearNo) Then DaysInMonth=29 Else DaysInMonth=28
    Case 4,6,9,11 DaysInMonth=30
  End Select
End Function

Encoding and Decoding Date Values

Since date values are represented as variants, special routines are required that convert a variant value to a calendar date format and backwards. 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 to guarantee that the value is valid. SetDateElements accepts the parts of a date and returns a variant date value.

VBScript

Sub EncodeDateDemo

  ' 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 Sub

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

VBScript

Sub DecodeDateDemo
  Dim Year, Month, Day

  ' 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 Sub

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 time. However, the aqDateTime scripting object provides a number of methods that were designed to modify date/time values. These methods are: AddMonths, AddDays and AddTime. The AddTime method allows you to modify date and time portions at once.

As it is said above, these methods are used both for incrementing and decrementing date/time values. If a positive number is passed as Month, Days or as another parameter, the resulting value is increased. If the parameter is negative, the resulting value is decreased.

These methods take into account the number of days in the month, whether the year is a leap year 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:

VBScript

Sub ModifyDates
Dim Date, AlteredDate

    Date=aqDateTime.SetDateElements(2007,1,25)

    ' Increase the date by 7 days
    'Note the month change
    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 in AlteredDate 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 Sub

Dealing with Week Days

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

VBScript

Sub DayOfWeekDemo
Dim WeekDay, DayName
  WeekDay=aqDateTime.GetDayOfWeek(aqDateTime.Today)
  Select Case WeekDay
    Case 1: DayName="Sunday"
    Case 2: DayName="Monday"
    Case 3: DayName="Tuesday"
    Case 4: DayName="Wednesday"
    Case 5: DayName="Thursday"
    Case 6: DayName="Friday"
    Case 7: DayName="Saturday"
  End Select
  Log.Message("Today is "+DayName)
End Sub

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

VBScript

Function ISODayOfWeek(InputDate)
  ISODayOfWeek=aqDateTime.GetDayOfWeek(InputDate)-1
  If (ISODayOfWeek=0) Then ISODayOfWeek=7
End Function

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.

VBScript

Function StartOfWeek (InputDate)
  ' Truncate the input parameter
  InputDate=Fix(InputDate)

  ' Using a US week day number
  StartOfWeek=aqDateTime.AddDays(InputDate, - aqDateTime.GetDayOfWeek(InputDate) + 1)

  ' Using an ISO week day number
  ' StartOfWeek=aqDateTime.AddDays(InputDate, - ISODayOfWeek(InputDate) + 1)
End Function

Function EndOfWeek (InputDate)
  ' Truncate the input parameter
  InputDate=Fix(InputDate)

  ' Using a US week day number
  EndOfWeek=aqDateTime.AddDays(InputDate, - aqDateTime.GetDayOfWeek(InputDate) + 7)

  ' Using an ISO week day number
  ' EndOfWeek=aqDateTime.AddDays(InputDate, - ISODayOfWeek(InputDate) + 7)
End Function

Note: Since the routines use the aqDateTime.GetDayOfWeek method, which returns a 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 the ISODayOfWeek function (the code of the ISODayOfWeek function is provided in the note above). In this case, the first routine will return the date that falls on Monday and the second one will return 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.

VBScript

Function WeekNumber(InputDate)
  ' Truncate the input parameter
  InputDate=Fix(InputDate)
  YearNo=aqDateTime.GetYear(InputDate)
  EndOfFirstWeek=EndOfWeek(aqDateTime.SetDateElements(YearNo,1,4))
  EndOfCurrentWeek=EndOfWeek(InputDate)
  WeekNumber= 1+(aqDateTime.GetDayOfYear(EndOfCurrentWeek)-aqDateTime.GetDayOfYear(EndOfFirstWeek))/7
End Function

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 week, but instead of the week day number, the day of the month number is used.

VBScript

Function StartOfMonthDay (InputDate)
Dim DayNo
  DayNo=aqDateTime.GetDay(InputDate)
  StartDate = aqDateTime.AddDays(InputDate, -DayNo+1)

  ' Use a US week day number
  StartOfMonthDay=aqDateTime.GetDayOfWeek(StartDate)

  ' Use an ISO week day number
  ' StartOfMonthDay=ISODayOfWeek(StartDate)
End Function

Function EndOfMonthDay (InputDate)
Dim YearNo, MonthNo, DayNo
  DayNo=aqDateTime.GetDay(InputDate)
  MonthNo=aqDateTime.GetMonth(InputDate)
  YearNo=aqDateTime.GetYear(InputDate)
  EndDate = aqDateTime.AddDays(InputDate, - DayNo + DaysInMonth(MonthNo, YearNo))

  ' Use a US week day number
  EndOfMonthDay=aqDateTime.GetDayOfWeek(EndDate)

  ' Use an ISO week day number
  ' EndOfMonthDay=ISODayOfWeek(EndDate)
End Function

See Also

Working With Dates
VBScript - Working With Time Values
aqDateTime Object

Highlight search results