3
{ This program demonstrates the EndOfAWeek function }
5
Uses SysUtils,DateUtils;
8
Fmt = '"Last day of this week : "dd mmmm yyyy hh:nn:ss';
9
Fmt2 = '"Last-1 day of this week : "dd mmmm yyyy hh:nn:ss';
17
Writeln(FormatDateTime(Fmt,EndOfAWeek(Y,W)));
18
Writeln(FormatDateTime(Fmt2,EndOfAWeek(Y,W,6)));
b'\\ No newline at end of file'