Convert Birth Date to Age

[W. Guy Delaney]

I would like to convert a child's birth date to his/her age.

 

[Mike M.T.]

Public Sub AgeCalc(vDate1 As Date, vDate2 As Date, ByRef vYears As Integer,
_
ByRef vMonths As Integer, ByRef vDays As Integer)
' --------------------------------------------------------------------------
---------
' Purpose : Age Calculation in Years, Months, Days
' Parameters :
' vDate1 - Date Of Birth
' vDate2 - Reference date for age calculation (usualy
current date)
' vYears - Diference in years
' vMonths - Diference in months
' vDays - Diference in days
' --------------------------------------------------------------------------
---------
vMonths = DateDiff("m", vDate1, vDate2)
vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vDate2)
If vDays < 0 Then
vMonths = vMonths - 1
vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vDate2)
End If
vYears = vMonths \ 12
vMonths = vMonths Mod 12
End Sub

 

[W. Guy Delaney]

I really would like something simplier, something that I can add to my
querry.

Public Sub AgeCalc(vDate1 As Date, vDate2 As Date, ByRef vYears As Integer,
_
ByRef vMonths As Integer, ByRef vDays As Integer)

' --------------------------------------------------------------------------

---------
' Purpose : Age Calculation in Years, Months, Days
' Parameters :
' vDate1 - Date Of Birth
' vDate2 - Reference date for age calculation (usualy
current date)
' vYears - Diference in years
' vMonths - Diference in months
' vDays - Diference in days

' --------------------------------------------------------------------------

 

[Douglas J. Steele]

DateDiff("yyyy", [Bdate], Date()) - _
IIf(Format(Date(), "mmdd") < Format([Bdate], "mmdd"), 1, 0)


--
Doug Steele, Microsoft Access MVP

(No private e-mails, please)

I really would like something simplier, something that I can add to my
querry.

' --------------------------------------------------------------------------' --------------------------------------------------------------------------