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