ObjectPascal 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?   WriteLn('Days in 2000 = '+               IntToStr(DaysInAYear(2000))); end; Show full unit code    Days in 2000 = 366