3
{ This program demonstrates the WithinPastMonths function }
5
Uses SysUtils,DateUtils;
7
Procedure Test(ANow,AThen : TDateTime; AMonths : Integer);
10
Write(DateToStr(AThen),' and ',DateToStr(ANow));
11
Write(' are within ',AMonths,' months: ');
12
Writeln(WithinPastMonths(ANow,AThen,AMonths));
b'\\ No newline at end of file'