[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index] |
Determine whether a year is a leap year.
Source position: datih.inc line 133
function IsLeapYear( |
Year: Word |
):Boolean; |
IsLeapYear returns True if Year is a leap year, False otherwise.
None.
|
Increases the month in a TDateTime value with a given amount. |
|
|
Return the current date. |
Program Example16; { This program demonstrates the IsLeapYear function } Uses sysutils; Var YY,MM,dd : Word; Procedure TestYear (Y : Word); begin Writeln (Y,' is leap year : ',IsLeapYear(Y)); end; Begin DeCodeDate(Date,YY,mm,dd); TestYear(yy); TestYear(2000); TestYear(1900); TestYear(1600); TestYear(1992); TestYear(1995); End.