Working with Dates - Part 2

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 an extra day was invented to create the 366 day leap year.

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 TestComplete Utilities 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:

'[TestComplete VBScript]<br />Function DaysInYear(YearNo)<br />If Utilities.IsLeapYear(YearNo) Then DaysInYear=366 Else DaysInYear=365<br />End Function<br /> //[TestComplete JScript]<br />function DaysInYear(YearNo)<br />{<br />if (Utilities.IsLeapYear(YearNo)) return 366; else return 365;<br />}<br /> //[TestComplete DelphiScript]<br />function DaysInYear(YearNo: Integer): Integer;<br />begin<br />if Utilities.IsLeapYear(YearNo) then Result:=366 else Result:=365;<br />end;<br /> //[TestComplete C++Script, C#Script]<br />function DaysInYear(YearNo)<br />{<br />if (Utilities["IsLeapYear"](YearNo)) return 366; else return 365;<br />}<br />

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:

'[TestComplete VBScript]<br />Function DaysInMonth(MonthNo,YearNo)<br />Select Case MonthNo<br />Case 1,3,5,7,8,10,12 DaysInMonth=31<br />Case 2 If Utilities.IsLeapYear(YearNo) Then DaysInMonth=29 Else DaysInMonth=28<br />Case 4,6,9,11 DaysInMonth=30<br />End Select<br />End Function<br /> //[TestComplete JScript]<br />function DaysInMonth(MonthNo,YearNo)<br />{<br />switch (MonthNo)<br />{<br />case 1: return 31; break;<br />case 2: if (Utilities.IsLeapYear(YearNo)) return 29; else return 28; break;<br />case 3: return 31; break;<br />case 4: return 30; break;<br />case 5: return 31; break;<br />case 6: return 30; break;<br />case 7: return 31; break;<br />case 8: return 31; break;<br />case 9: return 30; break;<br />case 10: return 31; break;<br />case 11: return 30; break;<br />case 12: return 31; break;<br />}<br />}<br /> //[TestComplete DelphiScript]<br />function DaysInMonth(MonthNo,YearNo: Integer): Integer;<br />begin<br />case MonthNo of<br />1,3,5,7,8,10,12: Result:=31;<br />2: if Utilities.IsLeapYear(YearNo) then Result:=29 else Result:=28;<br />4,6,9,11: Result:=30;<br />end;<br />end;<br /> //[TestComplete C++Script,<br />function DaysInMonth(MonthNo,YearNo)<br />{<br />switch (MonthNo)<br />{<br />case 1: return 31; break;<br />case 2: if (Utilities["IsLeapYear"](YearNo)) return 29; else return 28; break;<br />case 3: return 31; break;<br />case 4: return 30; break;<br />case 5: return 31; break;<br />case 6: return 30; break;<br />case 7: return 31; break;<br />case 8: return 31; break;<br />case 9: return 30; break;<br />case 10: return 31; break;<br />case 11: return 30; break;<br />case 12: return 31; break;<br />}<br />}<br />