Home  Fees/Services  Access Templates  Tutorials  Access Download  Articles  Search  Contact  Privacy  Links

Visual Basic Tutorial
   
Access Programming Examples
Calculate Person's Age Using VBA

Visual Basic Age Calculation Methods Visual Basic for Microsoft Access
Microsoft Access Tutorial>Visual Basic Tutorial>Age Calculation Download VBA Example  



VB Age Calculation
VB6 Change Case
Calculate Running Sum
VB Concatenate Records
VB CreateQueryDef
VB6 Database Path
Detail-Master Update
VB Field Validation VBA
VB Field Value New-Old
VB FindFirst Recordset
Get Version Number
VB Global Parameters
Global Variables
Labels as Links
VB Launch Outlook
VB List Box Files List
VB Mail Merge
OutputTo Crosstab
VB Read Email Access
VB Sort Recordset
VB Recordset Filters
VB Reference Form Field
RTF Report Email
VB Select Case
Email From Access
VB Transaction Processing

Visual Basic Function Examples


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


Contact Information

Programming Visual Basic Tutorial

Access Visual Basic/VB/VBA/VBScript/VB6 2007 2003 2000 All Windows Versions