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

10 lines
249 B
ObjectPascal

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.