blob: e29bd98b93f6e755585f7c309a89ef5633897c00 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
Program Example17;
{ This program demonstrates the DaysInAMonth function }
Uses SysUtils,DateUtils;
Var
Y,M : Word;
Begin
For Y:=1992 to 2010 do
For M:=1 to 12 do
Writeln(LongMonthNames[m],' ',Y,' has ',DaysInAMonth(Y,M),' days.');
End.
|
