3
{ This program demonstrates the DateTimeToString function }
8
Procedure today (Fmt : string);
13
DateTimeToString (S,Fmt,Date);
17
Procedure Now (Fmt : string);
22
DateTimeToString (S,Fmt,Time);
27
Today ('"Today is "dddd dd mmmm y');
28
Today ('"Today is "d mmm yy');
29
Today ('"Today is "d/mmm/yy');
30
Now ('''The time is ''am/pmh:n:s');
31
Now ('''The time is ''hh:nn:ssam/pm');
32
Now ('''The time is ''tt');
b'\\ No newline at end of file'