blob: 913e1ef71da0d903f48a8e2a3bc8c3fd0e33e908 (
plain)
1
2
3
4
5
6
7
8
9
10
|
Program Example78;
{ This program demonstrates the IncMilliSecond function }
Uses SysUtils,DateUtils;
Begin
Writeln('One MilliSecond from now is ',TimeToStr(IncMilliSecond(Now,1)));
Writeln('One MilliSecond ago from now is ',TimeToStr(IncMilliSecond(Now,-1)));
End.
|
