' VBA Code to Calculate Age from Birthdate in Excel
Sub CalculateAge()
Dim birthDate As Date
Dim age As Integer
' Prompt the user to enter a birth date
birthDate = InputBox("Enter the birth date (MM/DD/YYYY):")
' Calculate the age based on the current date
age = DateDiff("yyyy", birthDate, Date)
' Display the result
MsgBox "The age is: " & age
End Sub
Nazim Khan — Founder & Editor, TechGuruPlus.com
[MBA in Finance]
Nazim Khan has spent over ten years working with Excel, Tally and office documentation in accounts, finance and MIS roles. He has been running TechGuruPlus.com since 2016, where he publishes free editable templates for office work, and the YouTube channel Business Excel. He has trained more than 50,000 people online. Every template on this site is built and checked by him before it is published.
