3
{ This program demonstrates the SecondSpan function }
5
Uses SysUtils,DateUtils;
7
Procedure Test(ANow,AThen : TDateTime);
10
Write('Number of seconds between ');
11
Write(TimeToStr(AThen),' and ',TimeToStr(ANow));
12
Writeln(' : ',SecondSpan(ANow,AThen));
20
D2:=D1-(999*OneMilliSecond);
22
D2:=D1-(1001*OneMilliSecond);
24
D2:=D1-(2001*OneMilliSecond);
26
D2:=D1-(5001*OneMilliSecond);
28
D2:=D1-(5.4*OneSecond);
30
D2:=D1-(2.5*OneSecond);
b'\\ No newline at end of file'