[AccessD] Age calculation

Hi Steve

Sorry, it still fails miserably for, say, these dates:

DOB = #2/29/1992#
AtDay = #2/28/1997#

returning 4 and not 5.

/gustav

>>> miscellany at mvps.org 23-06-2007 22:57 >>>
Hehe.  Answering my own question.  I wouldn't mind $5 for every time I 
have used that expression over the last 12 years, on the assumption that 
I had it licked.

And now I see the obvious - in the case of a 29 February birthday, 
evaluating age on 28 February in a non leap year works correctly, but 
evaluating age on 28 February during a leap year, it gives the wrong figure.

So, I have modified accordingly...

Age: DateDiff("yyyy",[DOB],[DateAt])+(Format([DOB]+(Format([DOB],"mmdd")
=Format([DateAt],"mmdd")="0229"),"mmdd")>Format([DateAt],"mmdd"))

Regards
Steve


Steve Schapel wrote:
> However, I can't find an example where the following does not work 
> correctly.  Can you?
> 
> Age: DateDiff("yyyy",[DOB],[DateAt])+(Format([DOB]+(Format([DOB],"mmdd") 
> ="0229"),"mmdd")>Format([DateAt],"mmdd"))
--