blob: 54f89b3c4301e8e995d7be5fcdff00315aa2590d (
plain)
1
2
3
4
5
6
7
8
9
10
|
Program Example76;
{ This program demonstrates the IncMinute function }
Uses SysUtils,DateUtils;
Begin
Writeln('One Minute from now is ',TimeToStr(IncMinute(Time,1)));
Writeln('One Minute ago from now is ',TimeToStr(IncMinute(Time,-1)));
End.
|
