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