3
{ This program demonstrates the CompareTime function }
5
Uses SysUtils,DateUtils;
8
Fmt = 'dddd dd mmmm yyyy hh:nn:ss.zzz';
10
Procedure Test(D1,D2 : TDateTime);
16
Write(FormatDateTime(Fmt,D1),' has ');
17
Cmp:=CompareDateTime(D1,D2);
19
write('earlier time than ')
21
Write('later time than ')
23
Write('equal time with ');
24
Writeln(FormatDateTime(Fmt,D2));
b'\\ No newline at end of file'