Compute Age in Years and Months


Compute Age in Years and Months
Public Function GetAgeStr(varDOB As Variant, varDate As Variant) As String ' Purpose Returns a string of the age between dates in the following format: ' Xy-Ym - Where X is years and Y is the months between dates ' Author Ron Weiner rweiner@WorksRite.com ' Copyrite © 2001-2005 WorksRite Software Solutions ' You may use this code example for any purpose what-so-ever with ' acknowledgement. However, you may not publish the code without ' the express, written permission of the author. Dim dteDOB As Date, dteDate As Date Dim lngMonths As Long, lngYears As Long If IsDate(varDOB) And IsDate(varDate) Then dteDOB = CDate(varDOB) dteDate = CDate(varDate) lngMonths = DateDiff("M", dteDOB, dteDate) Mod 12 lngYears = DateDiff("M", dteDOB, dteDate) \ 12 If DatePart("m", dteDate) = DatePart("m", dteDOB) And DatePart("d", dteDate) < DatePart("d", dteDOB) Then lngYears = lngYears - 1 lngMonths = 11 End If GetAgeStr = lngYears & "y-" & lngMonths & "m" Else GetAgeStr = "" End If End Function