Return the number of weeks in a given year.
Source position: dateutil.inc line 119
function WeeksInAYear( |
const AYear: Word |
):Word; |
AYear |
|
A (valid) year. |
Number of weeks in AYear.
WeeksInAYear returns the number of weeks in the year AYear. The return value is either 52 or 53.
| Remark: | The first week of the year is determined according to the ISO 8601 standard: It is the first week that has at least 4 days in it, i.e. it includes a Thursday. |
|
return the number of weeks in the year, given a date. |
|
|
Return the number of days in the year in which a date occurs. |
|
|
Number of days in a particular year. |
|
|
Return the number of days in the month in which a date occurs. |
|
|
Number of days in a month of a certain year. |
Program Example13; { This program demonstrates the WeeksInAYear function } Uses SysUtils,DateUtils; Var Y : Word; Begin For Y:=1992 to 2010 do Writeln(Y,' has ',WeeksInAYear(Y),' weeks.'); End.