3
{ This program demonstrates the RecodeDate function }
5
Uses SysUtils,DateUtils;
8
Fmt = 'dddd dd mmmm yyyy hh:nn:ss';
14
S:=FormatDateTime(Fmt,RecodeDate(Now,2001,1,1));
15
Writeln('This moment on the first of the millenium : ',S);
b'\\ No newline at end of file'