fpcdocs/datutex/ex33.pp


1
2
3
4
5
6
7
8
9
10
11
12

Program Example33;

{ This program demonstrates the EndOfTheWeek function }

Uses SysUtils,DateUtils;

Const
  Fmt = '"last day of this week : "dd mmmm yyyy';

Begin
  Writeln(FormatDateTime(Fmt,EndOfTheWeek(Today)));
End.