Hoe de leeftijd vóór 1/1/1900 in Excel te berekenen?
In Excel kan de datum vóór 1/1/1900 niet correct worden ingevoerd en berekend. Als je de leeftijd van een persoon wilt berekenen die voor 1/1/1900 is geboren en overleden, zal dat meestal niet tot een juiste berekening leiden in Excel. Maar in dit artikel wordt een truc uitgelegd waarmee je de leeftijd vóór 1/1/1900 in Excel kunt berekenen.
Leeftijd vóór 1/1/1900 berekenen met VBA
Leeftijd berekenen op basis van verjaardag met Kutools voor Excel 
Leeftijd vóór 1/1/1900 berekenen met VBA
Hier is een VBA-code die je snel kan helpen om de leeftijd vóór 1/1/1900 te berekenen.
1. Selecteer een lege cel en voer de verjaardag van de persoon in, en selecteer vervolgens een andere cel om de datum van vandaag of de sterfdatum van de persoon in te voeren, afhankelijk van wat je nodig hebt. Zie screenshot:
2. Druk vervolgens op Alt + F11 toetsen om het Microsoft Visual Basic for Applications-venster te openen.
3. Klik op Invoegen > Module, plak onderstaande VBA in het nieuwe Module-venster.
VBA: Leeftijd berekenen vóór 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. Selecteer een lege cel, hier is C2, en voer deze formule in =AgeFunc(A2,B2) (A2 is de verjaardag en B2 is de einddatum), en druk op Enter toets om de leeftijd te krijgen, en sleep de automatische vulgreep over de cellen die je nodig hebt. Zie screenshot:
Opmerking: Deze VBA kan alleen leeftijden berekenen met datums in het formaat mm/dd/jjjj, zoals 6/23/1845.
Leeftijd berekenen op basis van verjaardag met Kutools voor Excel
Als de verjaardagen normaal na 1/1/1900 zijn, kun je Kutools voor Excel’s Datum & Tijd-hulpprogramma gebruiken, dat snel de leeftijd kan berekenen op basis van de gegeven verjaardagen.
Na gratis installatie van Kutools voor Excel, doe als volgt:
1. Selecteer een lege cel waarin je de leeftijd wilt weergeven, en klik op Kutools > Formulehulp > Datum & Tijd-hulpprogramma. Zie screenshot:
2. Open vervolgens het Datum & Tijd-hulpprogramma dialoogvenster, vink de optie Leeftijd aan, selecteer de verjaardag waarop je de leeftijd wilt berekenen en plaats deze in de Datum van Geboorte tekstvak. Standaard wordt de cel geselecteerd als absolute verwijzing, maar je kunt dit wijzigen naar relatieve verwijzing. Vink daarna de optie Vandaag aan en kies het resultaattype dat je wilt weergeven in de keuzelijst van Uitvoertype. Zie screenshot:
3. Klik op Ok om deze formule toe te passen, en nu zie je dat de leeftijd wordt weergegeven. En als je dat nodig hebt, kun je de automatische vulgreep slepen over de cellen waarvoor je deze formule nodig hebt. Zie screenshot:
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen