I forgot to include my formula. I have some adjustments to make since some of the calculations are not accurate. Pretty close though...
If IsNull({Patients.DOB}) Then 'DOB Not Given' else
ToText(int(DateDiff('d',DateTimeValue({Patients.DOB}),{Episodes.DateColl})/365.25),0)+' Years '+
ToText(int(remainder(DateDiff('d',DateTimeValue({Patients.DOB}),{Episodes.DateColl}),365.25)/30),0)+' Months '+
If day({Episodes.DateColl}) < Day({Patients.DOB}) Then
ToText(day(dateserial(year({Patients.DOB}), Month({Patients.DOB})+1,1-1)) - Day({Patients.DOB}) + Day({Episodes.DateColl}),0) + ' days'