3
{ This program demonstrates the WithinPastHours function }
5
Uses SysUtils,DateUtils;
7
Procedure Test(ANow,AThen : TDateTime; AHours : Integer);
10
Write(DateTimeToStr(AThen),' and ',DateTimeToStr(ANow));
11
Write(' are within ',AHours,' hours: ');
12
Writeln(WithinPastHours(ANow,AThen,AHours));
20
D2:=D1-(59*OneMinute);
22
D2:=D1-(61*OneMinute);
24
D2:=D1-(122*OneMinute);
26
D2:=D1-(306*OneMinute);
b'\\ No newline at end of file'