fpc/docs/sysutex/ex14.pp
1999-05-13 07:49:08 +00:00

14 lines
325 B
ObjectPascal

Program Example14;
{ This program demonstrates the FormatDateTime function }
Uses sysutils;
Var ThisMoment : TDateTime;
Begin
ThisMoment:=Now;
Writeln ('Now : ',FormatDateTime('hh:mm',ThisMoment));
Writeln ('Now : ',FormatDateTime('DD MM YYYY',ThisMoment));
Writeln ('Now : ',FormatDateTime('c',ThisMoment));
End.