fpcdocs/datutex/ex1.pp


1
2
3
4
5
6
7
8
9

Program Example1;

{ This program demonstrates the DateOf function }

Uses SysUtils,DateUtils;

Begin
  Writeln('Date is: ',DateTimeToStr(DateOf(Now)));
End.