blob: 4440689960b93a7b40f87f18996d8779685cb592 (
plain)
1
2
3
4
5
6
7
8
9
10
|
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.
|
