blob: 8e23e63da6cd2cabb9f466f35abff44274d4b28b (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
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.
|
