This function returns the difference between two dates on Years, Months, and Days:
Function GetAge(dtDOB As Date, _ Optional dtDateTo As Date = 0) _ As String 'is dtDateto passed ? If dtDateTo = 0 Then dtDateTo = Date End If GetAge = Format$(dtDateTo - _ dtDOB, "yy - mm - dd") End Function