Beregne alder udfra dato.

Hej Eksperter

Jeg vil gerne beregne alderen på en person udfra en given dato.
Jeg har selv forsøgt at rode lidt med det, men kan ikke få det til at fungere korrekt.

Jeg har lånt denne kodestump fra http://www.eksperten.dk/spm/262112 men hvis jeg bruger datoen 31-12-2002 udregnes alderen til 1 måned og 18 dage.
Men når jeg tæller efter udfra dags dato burde alderen kun blive 1 måned og 15 dage.

<%
sBirthdate = "31-12-2002"
dato = sBirthdate
years = Datediff ("yyyy",dato,date)
dato = dateAdd("yyyy",years,dato)
mounths = Datediff ("m",dato,date)
if mounths < 0 then
  dato = dateAdd("yyyy",-1,dato)
  mounths = Datediff ("m",dato,date)
  years = years - 1
end if
dato = dateAdd("m",mounths,dato)
days = Datediff ("d",dato,date)
if days < 0 then
  if mounths > 0 then
    mounths = mounths - 1
  else
    years = years - 1
    mounths = 11
  end if
  dato = dateAdd("m",-1,dato)
  days = Datediff ("d",dato,date)
end if
dinStr = years & " år " & mounths & " måneder " & days & " dage"

Response.Write dinStr

%>


Kan nogen hjælpe mig med at udregne den korrekte alder enten udfra ovenstående kodestump eller gerne helt fra bunden.