blob: 43c61cf5d82641fe6ae06c617da03ff7b8d852be (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
Program Example10;
{ This program demonstrates the IsValidDateWeek function }
Uses SysUtils,DateUtils;
Var
Y,W,D : Word;
B : Boolean;
Begin
For Y:=2000 to 2004 do
begin
B:=True;
For W:=51 to 54 do
For D:=1 to 7 do
If B then
begin
B:=IsValidDateWeek(Y,W,D);
If Not B then
if (D=1) then
Writeln(Y,' has exactly ',W,' weeks.')
else
Writeln(Y,' has ',W,' weeks and ',D-1,' days.');
end;
end;
End.
|
