blob: a1ccbd1cc5133ecb794fd38e9d6300d04ced004e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
Program Example96;
{ This program demonstrates the RecodeDateTime function }
Uses SysUtils,DateUtils;
Const
Fmt = 'dddd dd mmmm yyyy hh:nn:ss';
Var
S : AnsiString;
D : TDateTime ;
Begin
D:=Now;
D:=RecodeDateTime(D,2000,2,RecodeLeaveFieldAsIs,0,0,0,0);
S:=FormatDateTime(Fmt,D);
Writeln('This moment in februari 2000 : ',S);
End.
|
