3
{ This program demonstrates the StartOfADay function }
5
Uses SysUtils,DateUtils;
8
Fmt = '"Start of the day : "dd mmmm yyyy hh:nn:ss';
17
Writeln(FormatDateTime(Fmt,StartOfADay(Y,M,D)));
18
DecodeDateDay(Today,Y,D);
19
Writeln(FormatDateTime(Fmt,StartOfADay(Y,D)));
b'\\ No newline at end of file'