3
{ This program demonstrates the SameTime function }
5
Uses SysUtils,DateUtils;
8
Fmt = 'dddd dd mmmm yyyy hh:nn:ss.zzz';
10
Procedure Test(D1,D2 : TDateTime);
13
Write(FormatDateTime(Fmt,D1),' is the same time as ');
14
Writeln(FormatDateTime(Fmt,D2),' : ',SameTime(D1,D2));
b'\\ No newline at end of file'