[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index]

Reference for unit 'sysutils' (#rtl)

IsLeapYear

Determine whether a year is a leap year.

Declaration

Source position: datih.inc line 133

function IsLeapYear(

Year: Word

):Boolean;

Description

IsLeapYear returns True if Year is a leap year, False otherwise.

Errors

None.

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.

IncMonth		Increases the month in a `TDateTime` value with a given amount.
Date		Return the current date.

IsLeapYear

Declaration

Description

Errors

See also

Example