Function GetAge(ByVal vstrBirthDate)

lngYears = DateDiff("yyyy", vstrBirthDate, Now)


If month(vstrBirthDate) > month(now()) Then
lngYears = lngYears - 1
Elseif month(vstrBirthDate) = month(now()) Then
If day(vstrBirthDate) > day(now()) Then
lngYears = lngYears - 1
End If
End If

GetAge = lngYears

End Function


Använd sedan denna kod för att omvandla ett datum:

<%=GetAge(rs("Datum"))%>