Zitat von
omata:
Na gut, für die Klugscheißer...
Zitat von
omata:
...denn die Anzahl an Tagen, in den einzelnen Monaten eines Jahres, ist immer gleich (Ausnahme: Februar)...
@Larsi: ist nicht böse gemeint
Fingerknöchel-Regel...
Delphi-Quellcode:
function TageImMonat(Monat, Jahr:integer):byte;
begin
case Monat of
1: Result:=31;
2: if Schaltjahr(Jahr) then
Result:=29
else
Result:=28;
3: Result:=31;
4: Result:=30;
5: Result:=31;
6: Result:=30;
7: Result:=31;
8: Result:=31;
9: Result:=30;
10: Result:=31;
11: Result:=30;
12: Result:=31;
else
Result:=0;
end;
end;