Age Calculation

Here are two VBA Age Calculation examples for a solution to calculating the age of something, a person for example, given a beginning date.  Below are two solutions using birth date and today's date.

Example 1 - Age Calculation Long Method

Private Sub Birth_Dte_AfterUpdate()
    Dim iyears As Integer
    Dim tmonth As Integer
    Dim Bmonth As Integer
'
    iyears = DateDiff("yyyy", "01/01/" & DatePart("yyyy", Me.Birth_Dte), _
    "01/01/" & DatePart("yyyy", Me.Todays_Date)) - 1

    tmonth = DatePart("m", Me.Todays_Date)
    Bmonth = DatePart("m", Me.Birth_Dte)
'
    Select Case tmonth
        Case Is > Bmonth
            iyears = iyears + 1
        Case Is = Bmonth
            If DatePart("d", Me.Birth_Dte) <= _
            DatePart("d", Me.Todays_Date) Then iyears = iyears + 1
    End Select
End Sub

Example 2 - VBA Age Calculation - Short Method Using Date Serial Visual Basic Function:

Function age(vb_Dte As Variant)
  Dim v_Age_Calc As Variant
  v_Age_Calc = DateDiff("yyyy", vb_Dte, Now)
  If Date < DateSerial(Year(Now), _
    Month(vB_Date), Day(vb_Dte)) Then v_Age_Calc = v_Age_Calc - 1
  age = CInt(v_Age_Calc)
End Function