IsLeapYear
Determine whether a year is a leap year.
Declaration
Source position: datih.inc line 134
function IsLeapYear(Year: Word) : Boolean;
Description
IsLeapYear returns True if Year is a leap year, False otherwise.
Errors
None.
See also
| Name | Description |
|---|---|
| Date | Return the current date. |
| IncMonth | Increases the month in a TDateTime value with a given amount. |
Example
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.