[Overview][Constants][Procedures and functions][Index] 
Return the number of weeks in a given year
Source position: dateutil.inc line 110
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.