devxlogo

Age – Evaluating the age of a person, given his/her birth date

Age – Evaluating the age of a person, given his/her birth date

' Evaluate the age of a person, given his/her birth date' Example: Debug.WriteLine(Age(#9/28/1980#))  ' => 22Function Age(ByVal birthDate As Date, Optional ByVal currentDate As Date = #1/1/ _    1900#, Optional ByVal exactAge As Boolean = True) As Integer    If currentDate = #1/1/1900# Then currentDate = Date.Today    Age = currentDate.Year - birthDate.Year    If exactAge Then        ' subtract one if this year's birthday hasn't occurred yet        If New Date(currentDate.Year, birthDate.Month, _            birthDate.Day) > currentDate Then            Age -= 1        End If    End IfEnd Function

devx-admin

Share the Post: