Note: The other languages of the website are Google-translated. Back to English

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 dobrý nápad3


šipka modrá pravá bublina 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:
doc vypočítat věk před 1900 1

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:
doc vypočítat věk před 1900 2

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


šipka modrá pravá bublina 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:
doc vypočítat věk před 1900 3

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:
doc vypočítat věk před 1900 4

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:
doc vypočítat věk před 1900 5


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

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!
officetab dno
Komentáře (1)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
nefunguj excel řekni "nombre Ambiguo"
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL