blob: 801c0faab9aa203766d5a474e7a04b8fe47664d0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
Program Example35;
{ This program demonstrates the EndOfAWeek function }
Uses SysUtils,DateUtils;
Const
Fmt = '"Last day of this week : "dd mmmm yyyy hh:nn:ss';
Fmt2 = '"Last-1 day of this week : "dd mmmm yyyy hh:nn:ss';
Var
Y,W : Word;
Begin
Y:=YearOf(Today);
W:=WeekOf(Today);
Writeln(FormatDateTime(Fmt,EndOfAWeek(Y,W)));
Writeln(FormatDateTime(Fmt2,EndOfAWeek(Y,W,6)));
End.
|
