fpcdocs/sysutex/ex7.pp


1
2
3
4
5
6
7
8
9

Program Example7;

{ This program demonstrates the DateToStr function }

Uses sysutils;

Begin
  Writeln(Format ('Today is: %s',[DateToStr(Date)]));
End.