Age as of January 1...expression

[conneticat]

Thought this might be a useful expression to someone somewhere. DOB is, of course, date of birth. I dare you to remove some of the parenthesis...

AgeAsOfJan1: IIf(IsNull([DOB]),"No Age Listed",(Fix(((((Date()+1)-Format(Date(),"y"))-[DOB]))/365.25)) & " yr, " & (((Fix((((((Date()+1)-Format(Date(),"y"))-[DOB]))/365.25)*12)))-((Fix(((((Date()+1)-Format(Date(),"y"))-[DOB]))/365.25))*12)) & " mo")

The outcome: 7 yr, 2 mo

 

[THWatson]

conneticat
Thanks for the post.

If a fella saved up enough of those parentheses, he'd soon have enough to hold a garage sale!

Tom