Mega Code Archive

 

Categories / Delphi / Functions

 

Daysinayear - 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