3
{ This program demonstrates the IncMonth function }
7
Var ThisDay : TDateTime;
11
Writeln ('ThisDay : ',DateToStr(ThisDay));
12
Writeln ('6 months ago :',DateToStr(IncMonth(ThisDay,-6)));
13
Writeln ('6 months from now :' ,DateToStr(IncMonth(ThisDay,6)));
14
Writeln ('12 months ago :',DateToStr(IncMonth(ThisDay,-12)));
15
Writeln ('12 months from now :' ,DateToStr(IncMonth(ThisDay,12)));
16
Writeln ('18 months ago :',DateToStr(IncMonth(ThisDay,-18)));
17
Writeln ('18 months from now :' ,DateToStr(IncMonth(ThisDay,18)));
b'\\ No newline at end of file'