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

Advertiser Disclosure: Some of the products that appear on this site are from companies from which QuinStreet receives compensation. This compensation may impact how and where products appear on this site including, for example, the order in which they appear. QuinStreet does not include all companies or all types of products available in the marketplace.