fpc/docs/datutex/ex2.pp

Program Example2;

{ This program demonstrates the TimeOf function }

Uses SysUtils,DateUtils;

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