Udregning af fødselsdag uden afrundning eller decimaler

Function DiffADate(theDate)
  DiffADate = "alder: " & Int(DateDiff("m", theDate, Date) / 12)
End Function

'---- her skriver du datoen ind eller henter en dato fra databasen
fod = DateValue("25-07-1977") '

alder1 = DiffADate(fod)
response.write alder1

-- xs

hvad mener du med:
ikke afrunde, så man bliver ældre eller yngre end man er!

hvis du ikke vil have decimaler, er du jo nødt til at afrunde..

funktionen ovenover regner ud hvor mange måneder der gået fra fødselsdagen til datoen nu og derefter dividerer med 12 for at finde antal år..

hvis det skal være mere præcis end den rigtige måned skal du finde antal dage i stedet for måneder...

Og hvordan gør jeg det?

det er faktisk lidt svært at gøre helt præcist..

hvis du prøver at bruge ovenstående kode og finder dage istedet for måneder vil du se..:

Function DiffADate(theDate)
  DiffADate = "alder: " & (DateDiff("d", theDate, Date) / 365)
End Function

'---- her skriver du datoen ind eller henter en dato fra databasen
fod = DateValue("10-10-1977") '

alder1 = DiffADate(fod)
response.write alder1

resultatet er nok ikke som man forventede..

Narj, den siger jeg er 25, men det holder nok ikke helt!
Det første så ud til at virke fint, så du får pointene, tak for hjælpen!