fpcdocs/sysutex/ex18.pp


1
2
3
4
5
6
7
8
9

Program Example18;

{ This program demonstrates the Now function }

Uses sysutils;

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