Hoe berekent u de leeftijd vóór 1 januari 1900 in Excel?
In Excel kunt u datums vóór 1 januari 1900 niet correct invoeren of berekenen. Als u de leeftijd wilt bepalen van iemand die vóór 1 januari 1900 geboren is en overleden, geeft Excel doorgaans geen juiste uitkomst. Maar met een handige truc uit dit artikel kunt u de leeftijd vóór 1 januari 1900 in Excel toch nauwkeurig berekenen.
Bereken de leeftijd vóór 1/1/1900 met VBA
Bereken leeftijd op basis van geboortedatum met Kutools voor Excel 
Bereken de leeftijd vóór 1/1/1900 met VBA
Met deze VBA-code berekent u in een handomdraai de leeftijd vóór 1 januari 1900.
1. Selecteer een lege cel en voer de geboortedatum van de persoon in. Kies daarna een andere cel om, afhankelijk van uw behoefte, de huidige datum of de sterfdatum van de persoon in te voeren. Zie screenshot:
2. Druk daarna op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
3. Klik op Invoegen > Module en plak de onderstaande VBA-code in het nieuwe Module-venster.
VBA: Bereken leeftijd vóór 1/1/1900
Public Function AgeFunc(SDate As Variant, EDate As Variant) As Long
'UpdatebyExtendOffice20160429
Dim xSMonth As Integer
Dim xSDay As Integer
Dim xSYear As Integer
Dim xEMonth As Integer
Dim xEDay As Integer
Dim xEYear As Integer
Dim xAge As Integer
If Not GetDate(SDate, xSYear, xSMonth, xSDay) Then
AgeFunc = "Invalid Date"
Exit Function
End If
If Not GetDate(EDate, xEYear, xEMonth, xEDay) Then
AgeFunc = "Invalid Date"
Exit Function
End If
xAge = xEYear - xSYear
If xSMonth > xEMonth Then
xAge = xAge - 1
ElseIf xSMonth = xEMonth Then
If xSDay > xEDay Then xAge = xAge - 1
End If
If xAge < 0 Then
AgeFunc = "Invalid Date"
Else
AgeFunc = xAge
End If
End Function
Private Function GetDate(ByVal DateStr As String, Y As Integer, M As Integer, D As Integer) As Boolean
Dim I As Long
Dim K As Long
Y = 0
M = 0
D = 0
GetDate = True
On Error Resume Next
I = InStr(1, DateStr, "/")
M = CLng(Left(DateStr, I - 1))
D = CLng(Mid(DateStr, I + 1, InStr(I + 1, DateStr, "/") - I - 1))
Y = CLng(Right(DateStr, Len(DateStr) - InStrRev(DateStr, "/")))
If M < 1 Or M > 12 Or D < 1 Or D > 31 Or Y < 1 Then
GetDate = False
End If
End Function4. Selecteer een lege cel, bijvoorbeeld C2, en voer deze formule in:=AgeFunc(A2,B2) (A2 is de geboortedatum en B2 de einddatum). Druk op Enter om de leeftijd te berekenen en sleep de automatisch-aanvullen-greep naar de gewenste cellen. Zie screenshot:
Opmerking: Deze VBA-code berekent leeftijden alleen op basis van datums in het formaat mm/dd/jjjj, zoals 6/23/1845.
Bereken leeftijd op basis van geboortedatum met Kutools voor Excel
Als de geboortedatums normaal gesproken na 1/1/1900 liggen, kunt u de Kutools voor Excel’s Datum en Tijd Assistent-functie gebruiken om snel de leeftijd te berekenen op basis van de opgegeven geboortedatums.
Na gratis installerenvan Kutools voor Excel, gaat u als volgt te werk:
1. Selecteer een lege cel waarin u de leeftijd wilt weergeven en klik op Kutools > Formulehulp > Datum en Tijd Assistent. Zie screenshot:
2. Selecteer in het dialoogvenster Datum en Tijd Assistent de optie Leeftijd, kies in het vak Datum van geboorte de geboortedatum waarop u de leeftijd wilt baseren. Standaard wordt de cel geselecteerd als absolute verwijzing; u kunt dit wijzigen in een relatieve verwijzing. Schakel vervolgens de optie Vandaag in en kies het gewenste resultaattype uit de keuzelijst van Uitvoertype. Zie screenshot:
3. Klik op OK om deze formule toe te passen. U ziet nu de weergegeven leeftijd. Indien nodig, sleept u de automatisch-aanvullen-greep naar de gewenste cellen. Zie screenshot:
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