3
{ This program demonstrates the IncMonth function }
5
Uses SysUtils,DateUtils;
8
Writeln('One Month from today is ',DateToStr(IncMonth(Today,1)));
9
Writeln('One Month ago from today is ',DateToStr(IncMonth(Today,-1)));
b'\\ No newline at end of file'