blob: 41901f7180b3a2b527a154c64e654d457d99b9d8 (
plain)
1
2
3
4
5
6
7
8
9
10
|
Program Example72;
{ This program demonstrates the IncMonth function }
Uses SysUtils,DateUtils;
Begin
Writeln('One Month from today is ',DateToStr(IncMonth(Today,1)));
Writeln('One Month ago from today is ',DateToStr(IncMonth(Today,-1)));
End.
|
