fpcdocs/datutex/ex3.pp


1
2
3
4
5
6
7
8
9

Program Example3;

{ This program demonstrates the IsInLeapYear function }

Uses SysUtils,DateUtils;

Begin
  Writeln('Current year is leap year: ',IsInLeapYear(Date));
End.