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 Function4. 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.
| Kutools pro Excel, s více než 300 užitečné funkce, které vám usnadní práci. |
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:
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
