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