Hoe de leeftijd vóór 1/1/1900 in Excel te berekenen?

In Excel kan de datum vóór 1/1/1900 niet correct worden ingevoerd en berekend. Als je de leeftijd van een persoon wilt berekenen die voor 1/1/1900 is geboren en overleden, zal dat meestal niet tot een juiste berekening leiden in Excel. Maar in dit artikel wordt een truc uitgelegd waarmee je de leeftijd vóór 1/1/1900 in Excel kunt berekenen.

Leeftijd vóór 1/1/1900 berekenen met VBA

Leeftijd berekenen op basis van verjaardag met Kutools voor Excel

Leeftijd vóór 1/1/1900 berekenen met VBA

Hier is een VBA-code die je snel kan helpen om de leeftijd vóór 1/1/1900 te berekenen.

1. Selecteer een lege cel en voer de verjaardag van de persoon in, en selecteer vervolgens een andere cel om de datum van vandaag of de sterfdatum van de persoon in te voeren, afhankelijk van wat je nodig hebt. Zie screenshot:

2. Druk vervolgens op Alt + F11 toetsen om het Microsoft Visual Basic for Applications-venster te openen.

3. Klik op Invoegen > Module, plak onderstaande VBA in het nieuwe Module-venster.

VBA: Leeftijd berekenen 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 Function

4. Selecteer een lege cel, hier is C2, en voer deze formule in =AgeFunc(A2,B2) (A2 is de verjaardag en B2 is de einddatum), en druk op Enter toets om de leeftijd te krijgen, en sleep de automatische vulgreep over de cellen die je nodig hebt. Zie screenshot:

Opmerking: Deze VBA kan alleen leeftijden berekenen met datums in het formaat mm/dd/jjjj, zoals 6/23/1845.

Leeftijd berekenen op basis van verjaardag met Kutools voor Excel

Als de verjaardagen normaal na 1/1/1900 zijn, kun je Kutools voor Excel’s Datum & Tijd-hulpprogramma gebruiken, dat snel de leeftijd kan berekenen op basis van de gegeven verjaardagen.

Na gratis installatie van Kutools voor Excel, doe als volgt:

1. Selecteer een lege cel waarin je de leeftijd wilt weergeven, en klik op Kutools > Formulehulp > Datum & Tijd-hulpprogramma. Zie screenshot:

2. Open vervolgens het Datum & Tijd-hulpprogramma dialoogvenster, vink de optie Leeftijd aan, selecteer de verjaardag waarop je de leeftijd wilt berekenen en plaats deze in de Datum van Geboorte tekstvak. Standaard wordt de cel geselecteerd als absolute verwijzing, maar je kunt dit wijzigen naar relatieve verwijzing. Vink daarna de optie Vandaag aan en kies het resultaattype dat je wilt weergeven in de keuzelijst van Uitvoertype. Zie screenshot:

3. Klik op Ok om deze formule toe te passen, en nu zie je dat de leeftijd wordt weergegeven. En als je dat nodig hebt, kun je de automatische vulgreep slepen over de cellen waarvoor je deze formule nodig hebt. Zie screenshot: