3
{ This program demonstrates the WithinPastMilliSeconds function }
5
Uses SysUtils,DateUtils;
7
Procedure Test(ANow,AThen : TDateTime; AMilliSeconds : Integer);
10
Write(TimeToStr(AThen),' and ',TimeToStr(ANow));
11
Write(' are within ',AMilliSeconds,' milliseconds: ');
12
Writeln(WithinPastMilliSeconds(ANow,AThen,AMilliSeconds));
20
D2:=D1-(0.9*OneMilliSecond);
22
D2:=D1-(1.0*OneMilliSecond);
24
D2:=D1-(1.1*OneMilliSecond);
26
D2:=D1-(2.5*OneMilliSecond);
b'\\ No newline at end of file'