Home Explore Help
Sign In
pascal
/
fpc
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Tree: 1cf4d20b51
Branches Tags
fpc
/
docs
/
datutex
/
ex74.pp

ex74.pp 240 B
History Raw

12345678910 
  1. Program Example74;
    2. 

  2. 

  3. { This program demonstrates the IncDay function }
    4. 

  4. 

  5. Uses SysUtils,DateUtils;
    6. 

  6. 

  7. Begin
    8. 

  8.   Writeln('One Day from today is ',DateToStr(IncDay(Today,1)));
    9. 

  9.   Writeln('One Day ago from today is ',DateToStr(IncDay(Today,-1)));
    10. 

  10. End.
    11.