mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-07 10:20:31 +01:00
11 lines
241 B
ObjectPascal
11 lines
241 B
ObjectPascal
Program Example20;
|
|
|
|
{ This program demonstrates the IsToday function }
|
|
|
|
Uses SysUtils,DateUtils;
|
|
|
|
Begin
|
|
Writeln('Today : ',IsToday(Today));
|
|
Writeln('Tomorrow : ',IsToday(Tomorrow));
|
|
Writeln('Yesterday : ',IsToday(Yesterday));
|
|
End. |