Jak obliczyć wiek przed 1 w programie Excel?

W programie Excel nie można poprawnie wprowadzić i obliczyć daty przed 1. Jeśli chcesz obliczyć wiek osoby, która urodziła się i zmarła przed 1 stycznia 1900 r., W programie Excel generalnie nie uzyskasz prawidłowych obliczeń. Ale w tym artykule sztuczka może pomóc obliczyć wiek przed 1 w programie Excel.

Oblicz wiek przed 1/1/1900 za pomocą VBA

Oblicz wiek według urodzin za pomocą Kutools for Excel

Oblicz wiek przed 1/1/1900 za pomocą VBA

Oto kod VBA, który pomoże Ci szybko obliczyć wiek przed 1.

1. Wybierz pustą komórkę i wprowadź datę urodzenia osoby, a następnie wybierz inną komórkę, aby wprowadzić datę dzisiejszą lub datę śmierci osoby, zgodnie z potrzebami. Zobacz zrzut ekranu:

2. Następnie naciśnij Alt + F11 klucze do włączenia Microsoft Visual Basic for Applications okno.

3. kliknij wstawka > Moduł, wklej poniżej VBA do nowego Moduł okno.

VBA: Oblicz wiek przed 1

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. Wybierz pustą komórkę, tutaj C2, i wprowadź tę formułę = AgeFunc (A2; B2) (A2 to urodziny, a B2 to data końcowa) i naciśnij Wchodzę aby uzyskać wiek, i przeciągnij uchwyt autouzupełniania do potrzebnych komórek. Zobacz zrzut ekranu:

Uwaga: Ten VBA może obliczyć tylko wiek z datami w formacie mm / dd / rrrr, na przykład 6/23/1845.

Oblicz wiek według urodzin za pomocą Kutools for Excel

Jeśli daty urodzin przypadają zwykle po 1 stycznia 1 r., Możesz złożyć wniosek Kutools dla programu Excel'S Pomocnik daty i godziny narzędzie, które może szybko obliczyć wiek według podanych urodzin.

Po bezpłatna instalacja Kutools dla programu Excel, wykonaj poniższe czynności:

1. Wybierz pustą komórkę, dla której chcesz wyświetlić wiek, i kliknij Kutools > Pomocnik formuły > Pomocnik daty i godziny. Zobacz zrzut ekranu:

2. Następnie w Pomocnik daty i godziny zaznacz opcję Wiek, wybierz datę urodzenia, na podstawie której chcesz obliczyć wiek Data urodzenia pole tekstowe, domyślnie komórka zostanie wybrana jako odniesienie bezwzględne, możesz zmienić to na odwołanie względne, a następnie zaznacz Dzisiaj opcję i wybierz typ wyniku, który chcesz wyświetlić na liście rozwijanej Typ wyniku wyjściowego. Zobacz zrzut ekranu:

3. kliknij Ok aby zastosować tę formułę, a teraz możesz zobaczyć, jak wiek został pokazany. Jeśli potrzebujesz, możesz przeciągnąć uchwyt autouzupełniania nad komórki wymagające tej formuły. Zobacz zrzut ekranu:

---

Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

• Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
• Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
• Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
• Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
• Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
• Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
• Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
• Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
• Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.

Czytaj więcej... Darmowe pobieranie... Zakup... 

---

Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

• Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
• Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
• Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!

Czytaj więcej... Darmowe pobieranie... Zakup...