VBA Code to Calculate the Age in Years, Months, and Days in Excel

VBA Code:

Sub CalculateAge()
    Dim birthDate As Date
    Dim todayDate As Date
    Dim ageYears As Integer
    Dim ageMonths As Integer
    Dim ageDays As Integer
    
    ' Get the birth date from a cell or provide it directly
    birthDate = Range("A1").Value ' Replace "A1" with the cell reference that contains the birth date
    
    ' Get the current date
    todayDate = Date
    
    ' Calculate the age
    ageYears = DateDiff("yyyy", birthDate, todayDate)
    ageMonths = DateDiff("m", birthDate, todayDate) Mod 12
    ageDays = DateDiff("d", birthDate, todayDate)
    
    ' Display the age
    MsgBox "Age: " & ageYears & " years, " & ageMonths & " months, " & ageDays & " days"
End Sub

Check All VBA Codes

Join Our Telegram Group

Join Our WhatsApp Group

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.

Contact · Excel Course

Leave a Comment Cancel reply