blob: 09c803398ed70da0d591a8b327cd827adffc54ae (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
Program Example16;
{ This program demonstrates the DaysInMonth 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 ',DaysInMonth(EncodeDate(Y,M,1)),' days.');
End.
|
