Anzahl Tage im Monat

[Luckie]

Zitat von DeddyH:

Das sagt Dir, ob es sich um ein Schaltjahr handelt. F1 ist übrigens eine sehr nützliche Taste, die darf man gerne mal benutzen.

Das ist bei den meisten Tastaturen die Taste, die noch wie neu aussieht. SCNR

[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;

[mkinzler]

@IIIMADDINIII: Du solltest dir die Antworten hier mal durchlesen!

[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

[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!