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!