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 techguruplus telegram group Join Our WhatsApp Group techguruplus whatsapp group
Nazim Khan - Author Image

Nazim Khan (Author) 📞 +91 9536250020
[MBA in Finance]

Nazim Khan is an expert in Microsoft Excel. He teaches people how to use it better. He has been doing this for more than ten years. He is running this website (TechGuruPlus.com) and a YouTube channel called "Business Excel" since 2016. He shares useful tips from his own experiences to help others improve their Excel skills and careers.

Leave a Comment