Calculate a Person's Exact Age

Category:

Dates and Math

Type:

Snippets

Difficulty:

Beginning

Author:

Sachin Palewar

Version Compatibility: Visual Basic 5

More information:

This function calculates a person's exact age, down to the year, month, and day.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

'************************************************
'A function which accepts date of birth from    **
'and returns age in exact years,    **
'months and days ...                           **
'Program By Sachin Palewar                     **
'E-Mail palewar@hotmail.com                    **
'URL :- http://members.tripod.com/compuwhizkid **
'************************************************
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