fpcdocs/datutex/ex2.pp


1
2
3
4
5
6
7
8
9

Program Example2;

{ This program demonstrates the TimeOf function }

Uses SysUtils,DateUtils;

Begin
  Writeln('Time is : ',TimeToStr(TimeOf(Now)));
End.