return the number of weeks in the year, given a date.
Source position: dateutil.inc line 118
function WeeksInYear( |
const AValue: TDateTime |
):Word; |
AValue |
|
Day in the year. |
Number of weeks.
WeeksInYear returns the number of weeks in the year part of AValue. 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 a given year. |
|
|
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 Example12; { This program demonstrates the WeeksInYear function } Uses SysUtils,DateUtils; Var Y : Word; Begin For Y:=1992 to 2010 do Writeln(Y,' has ',WeeksInYear(EncodeDate(Y,2,1)),' weeks.'); End.