Calculating age automatically from Date Of Birth

[OutbackInvestments]

Hi. I know this is probably a simple question, and it probably has a simple answer, but I have to ask anyway. How do you make it so that you enter in a Birthdate, (dd,mm,yyyy) and have it calculate an age from that with Date$(). I have got a quasi-result with DateDiff, but It doesnt take into account the day and month (e.g, birth day in October, now its june. Says age 18)
Can anyone help?

Thanks.

 

[Matt Leidemer]

Simplest way is as follows (in pseudocode):

set TEMP = current_year - birth_year
if (current_month < birth_month) or (current_month = birth_month and current_day < birth_day) then set TEMP = TEMP - 1
set AGE = TEMP

Using me as an example (DOB 8/30/80):

TEMP = 2000 - 1980 = 20
current month (June) is less than (before) birth month (August) so TEMP = TEMP - 1 = 19

I'm not a hotshot Access programmer, so you'll need to convert this into Access/VB code, but this is the simplest algorithm for it.

- Matt

[This message has been edited by Matt Leidemer (edited 06-09-2000).]

[This message has been edited by Matt Leidemer (edited 06-09-2000).]

 

[R. Hicks]

Try this Function:

Public Function fGetAge(BDate As Date) As Integer
fGetAge = DateDiff("yyyy", BDate, Date) _
+ (Date < DateSerial(Year(Date), Month(BDate), Day(BDate)))
End Function

HTH
RDH