blob: da33d350261ce5ed5c6cc11f76dc5cf00571f54e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
Program Example94;
{ This program demonstrates the RecodeDate function }
Uses SysUtils,DateUtils;
Const
Fmt = 'dddd dd mmmm yyyy hh:nn:ss';
Var
S : AnsiString;
Begin
S:=FormatDateTime(Fmt,RecodeDate(Now,2001,1,1));
Writeln('This moment on the first of the millenium : ',S);
End.
|
