Display Age in Years, Months, Days

[jsimard]

I have created a unbound text box with



=DateDiff("yyyy",[Birthdate],Now())+Int(Format(Now(),"mmdd")<Format([Birthdate],"mmdd"))

to display the age of the client.

Is there a way to display the results to say if your birthdate is March 17, 1978 your age is "33 years 10 months 1 days"

[ssanfu]

There are many subroutines in VBA to calculate ages.

Check these out:

The Access Web:
http://access.mvps.org/access/datetime/date0001.htm

from Rogers Access Library:
http://www.rogersaccesslibrary.com/forum/topic215.html

-------------------------------------------------
Googling "Calculate age in vba": (several pages of sites)

http://support.microsoft.com/kb/290190

*** http://www.cpearson.com/excel/DateTimeVBA.htm (lots of date calculations PLUS how you want the age calc to display)