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.
Kutools dla programu Excel, ponad 300 przydatne funkcje, ułatwiają pracę. |
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 Dziś 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
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
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!