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

10 lines
240 B
ObjectPascal

Program Example74;
{ This program demonstrates the IncDay function }
Uses SysUtils,DateUtils;
Begin
Writeln('One Day from today is ',DateToStr(IncDay(Today,1)));
Writeln('One Day ago from today is ',DateToStr(IncDay(Today,-1)));
End.