German Schaltjahr

[pjo12345]

Hallo,

kann man prüfen ob das Jahr xxxx ein Schaltjahr ist?

mfg pjo12345

 

[Kiffi]

Kleiner Tipp: Schaltjahr = leap year (oder leapyear)

Mit diesem Begriffen hättest Du mit Hilfe der
Suchfunktion einige nützlich Infos finden können.

Sub leapyear(year As Int)
  Try
    DateTime.DateParse("02/29/" & year)
    Return True
  Catch
    Return False
  End Try
End Sub

Grüße ... Kiffi

 

[Koverhage]

oder durch 4 dividieren, wenn Rest = 0 dann Schaltjahr

 

[kvolstorf]

oder durch 4 dividieren, wenn Rest = 0 dann Schaltjahr

Schaltjahr Berechnung: Ein Schaltjahr ist, wenn

Die Jahreszahl durch 4 teilbar ist.
Ausnahme 1: Ist die Jahreszahl durch 100 teilbar ist i.d.R. KEIN Schaltjahr.
Ausnahme 2: Ist die Jahreszahl durch 400 teilbar ist IMMER ein Schaltjahr.
D.h. 2000, 2400 und 2800 sind Schaltjahre.

mfg

quelle:Schaltjahre Übersicht