Anzahl Tage im Monat

[IIIMADDINIII]

es biringt übung im programieren wenn man das tut

[mkinzler]

Ich hatte aber oben deinen Code kommentiert.

[IIIMADDINIII]

kommentieren mach ich nict so gern

[Sunlight7]

Er meinte er hat in Beitrag #23 erklärt, warum Dein Code nicht optimal ist :zwinker:

[lbccaleb]

Zitat:

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!