Full Age in report

[dave]

Hi

I'm trying to build a report that will show an age in the years and months
format. I have found a routine on the net but I'm unsure how to call it! I
have tried fullage: CalcAge([DOB],[now()]) in a query but not sure if I
have enough parameters and also how to handle what is returned to me. The
code I have is

Public Sub CalcAge(vDate1 As Date, vdate2 As Date, ByRef vYears As Integer,
ByRef vMonths As Integer, ByRef vDays As Integer)
' Comments : calculates the age in Years, Months and Days
' Parameters:
' vDate1 - D.O.B.
' vDate2 - Date to calculate age based on
' vYears - will hold the Years difference
' vMonths - will hold the Months difference
' vDays - will hold the Days difference
vMonths = DateDiff("m", vDate1, vdate2)
vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2)
If vDays < 0 Then
' wierd way that DateDiff works, fix it here
vMonths = vMonths - 1
vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2)
End If
vYears = vMonths \ 12 ' integer division
vMonths = vMonths Mod 12 ' only want leftover less than one year
End Sub


Any help would be gratefully received!

 

[Duane Hookom]

Use the code found at
http://members.rogers.com/douglas.j.steele/Diff2Dates.html. There are great
instructions on how to use it.