Age calculation

Topic

New Reply

I am using the following function to work out the age of someone.

DateDiff(“yyyy”, DOB, Date)

The DateDiff calculation does not look at partial months, ie dob 12/05/90 will produce an age of 11 even though they are only 10. Can anyone help??

Reply | Quote

Replies

Try this function

Function Age(Bdate, DateToday) As Integer
‘ Returns the Age in years between 2 dates
‘ Doesn’t handle negative date ranges i.e. Bdate > DateToday

If Month(DateToday) < Month(Bdate) Or (Month(DateToday) = _
Month(Bdate) And Day(DateToday) < Day(Bdate)) Then
Age = Year(DateToday) – Year(Bdate) – 1
Else
Age = Year(DateToday) – Year(Bdate)
End If
End Function

Good luck

Richard Aheron
raheron@hotmail.com

Reply | Quote

i put this code in the oncurrent event
yourTextbox = DateDiff(“yyyy”, [BirthDate], Now()) + Int(Format(Now(), “mmdd”) < Format([BirthDate], "mmdd"))
hope it helps
JerryC

Reply | Quote