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, " &...