dato funktion/ tælle årstal

hej - denne funktion viser alder - men den skifter kun ved årskifte - d.v.s den viser at man er 20 år pr 1 januar selvom  man først fylder år i december -
Er der en der kan hjælpe med at ændre funktionen så den kan skifte på datoen?

Alder <%=age_count(RS_VIS_PROFIL("fodedag"))%>

<%FUNCTION AGE_COUNT(STRING)
DIM AGE
AGE = DateDiff("yyyy",STRING, now())
AGE_COUNT = AGE
END FUNCTION%>