Hoe controleert u in Excel of een jaar een schrikkeljaar is?
Weet u hoe u kunt bepalen of een jaar een schrikkeljaar is? In Excel bestaat geen directe methode om dit te controleren, maar u kunt een door de gebruiker gedefinieerde functie of formule maken om dit probleem eenvoudig 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 u een lijst met jaren in uw werkblad hebt; dan helpt de volgende formule u bepalen of een jaar al dan niet een schrikkeljaar is. Volg deze stappen:
1. Voer in een lege cel naast de jaarcellen deze formule in:
=IF(OR(MOD(A2,400)=0,AND(MOD(A2,4)=0,MOD(A2,100)<>0)),"[[PH_8]]", „NOT a [[PH_9]]"), ()A2bevat het jaar waarop u deze formule wilt toepassen; u kunt dit aanpassen naar uw wens) zie schermafbeelding:
2. Sleep vervolgens de vulgreep naar het bereik waarin u deze formule wilt toepassen, en alle jaren worden automatisch gecontroleerd op schrikkeljaren.
Opmerking: Als de betreffende cel leeg is, geeft deze formule ook ‘Schrikkeljaar’ weer.
Controleer of een jaar een Schrikkeljaar is met een door de gebruiker gedefinieerde functie
U kunt ook een door de gebruiker gedefinieerde functie maken om te controleren of een jaar een schrikkeljaar is — en dat gaat zo:
1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
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.Compileer deze code vervolgens, ga terug naar uw werkblad en voer deze formule in: =isleapyear(A2), zie schermafbeelding:
4. Sleep daarna de vulgreep naar de cellen waarin u deze formule wilt toepassen, en alle jaren worden automatisch gecontroleerd: FALSE betekent dat het geen schrikkeljaar is, en TRUE duidt op een schrikkeljaar. Zie schermafbeelding:
Gerelateerd artikel:
Zoek de kleinste gemene veelvoud of grootste gemene deler in Excel
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins