Calculating Age in Years and months in a form

[Jessica]

I'm currently creating a form, in which i have the Birth Date field. I need
to calculate the age in years and months. For example 25 years, 6 months.
What formula can i use. I tried different ones, but none of them give me the
months.

 

[Douglas J. Steele]

Take a look at "A More Complete DateDiff Function" that Graham Seach and I
developed. http://www.accessmvp.com/djsteele/Diff2Dates.html

You'd use DateDiff("ym", [DOB], Date())

 

[Ken Sheridan]

I gave you a function for this the other day:

Public Function GetAge(varDob, Optional varDateAt)

Dim intYears As Integer, intMonths As Integer

' return date at current date if no second argument
' passed into function
If IsMissing(varDateAt) Then varDateAt = Date

If Not IsNull(varDob) Then
' get difference in years
intYears = DateDiff("yyyy", varDob, varDateAt)
' get difference in months
intMonths = DateDiff("m", varDob, _
DateSerial(Year(varDob), Month(varDateAt), Day(varDateAt)))
' adjust result if date of birth falls later in year
' than date at which age to be calculated
If varDateAt < DateSerial(Year(varDateAt), Month(varDob),
Day(varDob)) Then
intYears = intYears - 1
intMonths = intMonths + 12
End If

GetAge = intYears & " year" & _
IIf(intYears <> 1, "s", "") & ", " & _
intMonths & " month" & _
IIf(intMonths <> 1, "s", "")
End If

End Function

Paste the function into a standard module and set the ControlSource of an
unbound text box on the form to:

=GetAge([BirthDate])

Ken Sheridan
Stafford, England