SmartPascal
DaysInAYear
Function
Gives the number of days in a year DateUtils unit
 function DaysInAYear ( const Year : Word ) : Word;
Description
The DaysInAYear function gives the number of days in a given Year.
 
The Year can be in the range 0..9999
Related commands
DaysBetween Gives the whole number of days between 2 dates
DaysInAMonth Gives the number of days in a month
DaySpan Gives the fractional number of days between 2 dates
MinsPerDay Gives the number of minutes in a day
MonthDays Gives the number of days in a month
SecsPerDay Gives the number of seconds in a day
 
Example code : How many days in the leap year 2000 ?
begin
  // How many days in the leap year 2000?
  ShowMessage('Days in 2000 = '+
              IntToStr(DaysInAYear(2000)));
end;
Show full unit code
   Days in 2000 = 366