Frage zu Zeitrechnung

[himitsu]

Das taucht jetzt wohl häufiger auf?

Vielleicht sollte das mal langsam in die CodeLib.

Schaltjahr
Brauche Hilfe zu TMonthCalendar
Letzter Tag im Monat (Datum) ermitteln

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;