Anzahl Tage im Monat

[lbccaleb]

Zitat von 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 [b]isleapjear(date)[/b] then result := 29 //hier greifst du auf dateutils zu!
  else result := 28;
end;
end;

Wieso machst du es dir so umständlich???
Da du ehh DateUtils verwendest, musst du das doch nicht um tausend ecken machen, und lieber gleich die passende funktion aus der Unit "DateUtils" nehmen!