Schaltjahrformel:

Dim J As Integer
Dim Schaltjahr as Boolean
J = 2011
If J Mod 4 = 0 And J Mod 100 <> 0 Or J Mod 400 = 0 Then Schaltjahr = True

Beschreibung: Zunächst wird eine Integervariable definiert welche das zu überprüfende Jahr darstellt. Das Jahr wird mittels der obigen Formel überprüft und danach durch die Boolsche Variable Schaltjahr = True or False also Wahr oder Falsch dargestellt
Teilen