Slight twist on old problem - age from dob

[greymonkey]

Hi all,

I have this function working out the age from the date of birth and all is working fine.

Function Age(Birthdate As Date, Enddate As Date) As Integer
Age = DateDiff("yyyy", Birthdate, Enddate) + _
(Enddate < DateSerial(Year(Enddate), Month(Birthdate), Day(Birthdate)))
End Function

the problem is when I need to find the age of a person in september.

to be more percice i need to know how to make the date 1/9/ year(date()) into a format the access will reconise as a proper date.

any idears,
:>

 

[SteveR77]

Here is an idea that should work -

Cdate("1/9/"&Year(YourDate))


HTH,


Steve