Member Profile - Show Correct Age

Hi,

In the member profile, it was pointed out to me that the member's age was not always correct. If you were in the month they were born, and had not yet reached their birth date, then their age would be incorrect and would be the age they would be at their next birthday.

To fix this add the following function at the end of member_profile.asp:

<%

Function ExactAge(BirthDate)

    Dim yer
    Dim mon
    Dim d
    Dim dt

        dt = CDate(BirthDate)
        If dt > Now Then Exit Function
    
        yer = Year(dt)
        mon = Month(dt)
        d = Day(dt)
        yer = Year(Date) - yer
        mon = Month(Date) - mon
        d = Day(Date) - d
   
        If Sgn(d) = -1 Then
            d = 30 - Abs(d)
            mon = mon - 1
        End If
   
        If Sgn(mon) = -1 Then
            mon = 12 - Abs(mon)
            yer = yer - 1
        End If
   
    ExactAge = yer

End Function

%>

Find this line:

intAge = Fix(DateDiff("m", dtmDateOfBirth, now())/12)

and replace it with:

intAge = ExactAge(dtmDateOfBirth)

The member's correct age will now be displayed.