Jak vypočítat věk před 1. 1. 1900 v aplikaci Excel?

V aplikaci Excel nelze datum před 1. 1. 1900 zadat a vypočítat správně. Pokud chcete vypočítat věk osoby, která se narodila a zemřela před 1. 1. 1900, nezíská to správný výpočet obecně v aplikaci Excel. Tady v tomto článku vám ale trik pomůže vypočítat věk před 1. 1. 1900 v aplikaci Excel.

Vypočítejte věk před 1. 1. 1900 pomocí VBA

Vypočítejte věk podle narozenin pomocí Kutools pro Excel

Vypočítejte věk před 1. 1. 1900 pomocí VBA

Zde je kód VBA, který vám pomůže rychle vypočítat věk před 1. 1. 1900.

1. Vyberte prázdnou buňku a zadejte narozeniny osoby a poté vyberte jinou buňku a zadejte datum dneška nebo datum úmrtí osoby podle potřeby. Viz snímek obrazovky:

2. Poté stiskněte Alt + F11 klíče k povolení Microsoft Visual Basic pro aplikace okno.

3. cvaknutí Vložit > Modul, vložte pod VBA do nového Modul okno.

VBA: Vypočítejte věk před 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. Vyberte prázdnou buňku, zde je C2, a zadejte tento vzorec = AgeFunc (A2; B2) (A2 je datum narození a B2 je datum ukončení) a stiskněte vstoupit klíč k získání věku a přetáhněte rukojeť automatického vyplňování přes buňky, které potřebujete. Viz snímek obrazovky:

Poznámka: Tento VBA může počítat pouze věky s daty ve formátu mm / dd / rrrr, například 6/23/1845.

Vypočítejte věk podle narozenin pomocí Kutools pro Excel

Pokud jsou data narozenin obvykle po 1. 1. 1900, můžete se přihlásit Kutools pro ExcelJe Pomocník pro datum a čas nástroj, který dokáže rychle vypočítat věk podle daných narozenin.

Po instalace zdarma Kutools pro Excel, prosím, postupujte takto:

1. Vyberte prázdnou buňku, ze které chcete vytisknout věk, a klepněte na Kutools > Pomocník vzorců > Pomocník pro datum a čas. Viz snímek obrazovky:

2. Pak v Pomocník pro datum a čas V dialogovém okně zaškrtněte možnost Věk a vyberte narozeniny, podle kterých chcete vypočítat věk na základě Datum narození textové pole, výchozí, buňka bude vybrána jako absolutní reference, můžete ji změnit na relatiev reference, poté zkontrolovat Dnes možnost a vyberte jeden typ výsledku, který chcete zobrazit v rozevíracím seznamu Typ výsledku výstupu. Viz snímek obrazovky:

3. cvaknutí Ok použít tento vzorec a nyní můžete vidět, že byl zobrazen věk. A pokud potřebujete, můžete přetáhnout úchyt automatického vyplňování přes buňky potřebné pro tento vzorec. Viz snímek obrazovky: