Anzahl Tage im Monat

[IIIMADDINIII]

dann geht es ja noch leichter

Delphi-Quellcode:

function TForm1.getdaysinmonth(date: TDATETIME): integer;
const
   monthday: array[1..12] of integer = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
begin
if strtoint(formatdatetime('m', date)) <> 2 then
begin
  result := monthday[strtoint(formatdatetime('m', date))];
end
else
begin
  if isleapjear(date) then result := 29
  else result := 28;
end;
end;