Für 32Bit und 64Bit Office Versionen
Problemstellung:
Wie kann ich ermitteln ob das angegebene Jahr ein Schaltjahr ist?
Function SchaltJahr(Jahr As Integer) As Boolean ' Falsch = Jahr ist kein Schaltjahr , Warh = Jahr ist ein Schaltjahr SchaltJahr = Jahr Mod 4 = 0 And (Jahr Mod 100 <> 0 Or Jahr Mod 400 = 0) End Function
Aufruf:
Dim x As Boolean x =SchaltJahr(2004)
Das Ergebniswäre x = True da 2004 ein Schaltjahr ist
Ähnliche Artikel