mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-31 10:31:44 +01:00
14 lines
325 B
ObjectPascal
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. |