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

function MonatsTage: Word;

Const Tage : array[1..12] of Word = (31,28,31,30,31,30,
                            31,31,30,31,30,31);
Var Year, Month, Day : Word;

begin
     DecodeDate(Date,Year, Month, Day);
     Result := Tage[Month];
     if (IsLeapYear(Year) AND (Monat = 2)) then
        Result := 29;
end;					

1:

DaysInAMonth(const AYear, AMonth: Word): Word;					

1:

DaysInAMonth