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