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