mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-09 02:49:35 +01:00
11 lines
246 B
ObjectPascal
11 lines
246 B
ObjectPascal
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. |