blob: e8672ba67768c0fea529a1ecd9f981933d02cbfe (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
Program Example14;
{ This program demonstrates the FormatDateTime function }
Uses sysutils;
Var ThisMoment : TDateTime;
Begin
ThisMoment:=Now;
Writeln ('Now : ',FormatDateTime('hh:nn',ThisMoment));
Writeln ('Now : ',FormatDateTime('DD MM YYYY',ThisMoment));
Writeln ('Now : ',FormatDateTime('c',ThisMoment));
End.
|
