Hoe controleer je of een jaar een schrikkeljaar is in Excel?

Weet je hoe je kunt bepalen of een jaar een schrikkeljaar is of niet? In Excel is er geen directe methode om dit te controleren, maar je kunt een door de gebruiker gedefinieerde functie of formule maken om dit probleem op te lossen.

Controleer of een jaar een schrikkeljaar is met een formule

Controleer of een jaar een schrikkeljaar is met een door de gebruiker gedefinieerde functie

Controleer of een jaar een schrikkeljaar is met een formule

Stel dat je een lijst met jaren hebt in het werkblad, dan kan de volgende lange formule je helpen om te bepalen of een bepaald jaar een schrikkeljaar is of niet. Doe het volgende:

1. Naast de jaarcellen, voer in een lege cel deze formule in:

=ALS(OF(MOD(A2;400)=0;EN(MOD(A2;4)=0;MOD(A2;100)<>0));"Schrikkeljaar"; "GEEN Schrikkeljaar") (A2 bevat het jaar waarop je deze formule wilt toepassen, je kunt dit naar wens wijzigen), zie screenshot:

2. Sleep vervolgens de vulgreep over het bereik waarin je deze formule wilt toepassen, en alle jaren zijn gecontroleerd op schrikkeljaren.

Opmerking: Als de bijbehorende cel leeg is, zal deze formule ook Schrikkeljaar tonen.

Controleer of een jaar een schrikkeljaar is met een door de gebruiker gedefinieerde functie

Je kunt ook een door de gebruiker gedefinieerde functie maken om te controleren of het jaar een schrikkeljaar is, zoals hier:

1. Houd de toetsen ALT + F11 ingedrukt, en het venster Microsoft Visual Basic for Applications wordt geopend.

2. Klik op Invoegen > Module, en plak de volgende code in het modulevenster.

VBA-code: controleer of een jaar een schrikkeljaar is

Function IsLeapYear(pYear As Integer) As Boolean
'Update 20140623
If (pYear Mod 4) = 0 And (pYear Mod 100) <> 0 Or ((pYear Mod 400) = 0) Then
   IsLeapYear = True
Else
   IsLeapYear = False
End If
End Function

3. Sla daarna deze code op en sluit deze, ga terug naar je werkblad, en voer deze formule in: =isleapyear(A2), zie screenshot:

4. Sleep vervolgens de vulgreep naar de cellen waarin je deze formule wilt toepassen, en alle jaren zijn gecontroleerd, ONWAAR staat voor geen schrikkeljaar en WAAR geeft een schrikkeljaar aan. Zie screenshot:

Gerelateerd artikel:

Zoek de kleinste gemene deler of grootste gemene factor in Excel