blob: 71600350eb5c2407e77cf9d508ce5b154b4d2d60 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
Program Example75
;
{ This program demonstrates the IncHour function }
Uses SysUtils,DateUtils;
Begin
Writeln('One Hour from now is ',DateTimeToStr(IncHour(Now,1)));
Writeln('One Hour ago from now is ',DateTimeToStr(IncHour(Now,-1)));
End.
|
