How to calculate age before 1/1/1900 in Excel?
In Excel, the date before 1/1/1900 cannot be entered and calculated correctly. If you want to calculate the age of a person who was born and died before 1/1/1900, that would not get the correct calculation in Excel generally. But here in this article, a trick can help you to calculate the age before 1/1/1900 in Excel.
Calculate age before 1/1/1900 with VBA
Calculate age by birthday with Kutools for Excel 
Calculate age before 1/1/1900 with VBA
Here is a VBA code can help you to quickly calculate the age before 1/1/1900.
1. Select a blank cell and enter the birthday of the person, and then select another cell to enter the date of today, or the date of person die as you need. See screenshot:
2. Then press Alt + F11 keys to enable Microsoft Visual Basic for Applications window.
3. Click Insert > Module, paste below VBA to the new Module window.
VBA: Calculate age before 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. Select a blank cell, here is C2, and enter this formula =AgeFunc(A2,B2) (A2 is the birthday, and the B2 is the end date), and press Enter key to get the age, and drag autofill handle to over the cells you need. See screenshot:
Note: This VBA can only calculate ages with dates in the format of mm/dd/yyyy, such as 6/23/1845.
Calculate age by birthday with Kutools for Excel
If the birthday dates are normally after 1/1/1900, you can apply Kutools for Excelās Date & Time helper utility, which can quickly calculate the age by the given birthdays.
After free installing Kutools for Excel, please do as below:
1. Select a blank cell you want to output the age, and click Kutools > Formula Helper > Date & Time helper. See screenshot:
2. Then in the Date & Time helper dialog, check Age option, select the birthday you want to calculate age based on to the Date of Birth textbox, default, the cell will be selected as absolute reference, you can change it to relatiev reference, then check Today option and choose one result type you want to show in the drop-down list of Output result type. See screenshot:
3. Click Ok to apply this formula, and now you can see the age has been shown. And if you need, you can drag the autofill handle to over the cells needed this formula. See screenshot:
Best Office Productivity Tools
Supercharge Your Excel Skills with Kutools for Excel, and Experience Efficiency Like Never Before. Kutools for Excel Offers Over 300 Advanced Features to Boost Productivity and Save Time. Click Here to Get The Feature You Need The Most...
Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier
- Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
- Open and create multiple documents in new tabs of the same window, rather than in new windows.
- Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!
All Kutools add-ins. One installer
Kutools for Office suite bundles add-ins for Excel, Word, Outlook & PowerPoint plus Office Tab Pro, which is ideal for teams working across Office apps.
- All-in-one suite ā Excel, Word, Outlook & PowerPoint add-ins + Office Tab Pro
- One installer, one license ā set up in minutes (MSI-ready)
- Works better together ā streamlined productivity across Office apps
- 30-day full-featured trial ā no registration, no credit card
- Best value ā save vs buying individual add-in