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