fpc/docs/datutex/ex78.pp
2004-12-30 01:06:27 +00:00

10 lines
272 B
ObjectPascal

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.