Schaltjahr

[himitsu]

Hab bei mir 'nen kleine Fehler entdekt.
(DIV zu MOD geändert)

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 mod 4 = 0) and (Jahr mod 100 <> 0)) or (Jahr mod 400 = 0) Then 
           Result := 29 Else Result := 28; 
      Else Result := -1; 
    End; 
  End;