Calculate Age

[cssriraman]

Here is the code:

'A function which accepts date of birth from and returns age in exact years, months and days
Public Function ExactAge(BirthDate As Variant) As String
    Dim yer As Integer, mon As Integer, d As Integer
    Dim dt As Date
    Dim sAns As String
 
    If Not IsDate(BirthDate) Then Exit Function
    dt = CDate(BirthDate)
    If dt > Now Then Exit Function
 
    yer = Year(dt)
    mon = Month(dt)
    d = Day(dt)
    yer = Year(Date) - yer
    mon = Month(Date) - mon
    d = Day(Date) - d
 
    If Sgn(d) = -1 Then
        d = 30 - Abs(d)
        mon = mon - 1
    End If
 
    If Sgn(mon) = -1 Then
        mon = 12 - Abs(mon)
        yer = yer - 1
    End If
 
    sAns = yer & " year(s) " & mon & " month(s) " & d & " day(s) old."
    ExactAge = sAns
End Function