Das hatte ich hier schon mal verbrockt.
Und wenn du dir mal die Berechnung für Februar anschaust, wirst du bemerken, das nicht jedes durch 4 teilbare Jahr ein Schaltjahr ist.
Zitat von
himitsu:
In 'nem Schaltjahr gibt es sogar noch einen 29-Tage-Monat.
Das hier hatte ich mal nach dem gregorianisch-julianischen Kalender (des ist der aktuelle) erstellt.
(das stimmt etwas seit dem 15. Jahrhundert (1583 in Deutschand) bis ...)
Delphi-Quellcode:
Function TageImMonat(Monat, Jahr: Integer): Integer;
Begin
Case Monat of
1, 3, 5, 7, 8, 10, 12: Result := 31;
4, 6, 9, 11: Result := 30;
2: If ((Jahr div 4 = 0) and (Jahr div 100 <> 0)) or (Jahr div 400 = 0) Then
Result := 29 Else Result := 28;
Else Result := -1;
End;
End;