Schaltjahr

[himitsu]

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;