Funktion til udregning af alder ud fra to datoer

ved ikke helt hvad du mener men er det sådan noget du tænker på?:

fDag = CDate("16-02-02")

IF fDag = Date THEN
response.write "Tillykke det er din fødselsdag!"
END IF


-- xs

Nej. ikke sådan. Jeg vil have personens alder... i år

ahh ok :)
Her er 2 versioner.. et med decimaler og et rundet ned.. f.eks næsten 25 vil blive 24..


<%
'------- funktionen runder alderen ned ----

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


'---- hvis du vil have decimaler med skal functionen se således ud
'---- funktionen viser 1 decimal som kan ændres ved at skrive f.eks 4 for 4 decimaler

Function DiffinDate(theDate)
  DiffinDate = "alder: " & FormatNumber((DateDiff("m", theDate, Date) / 12), 1)
End Function

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

alder1 = DiffADate(fod)
alder2 = DiffinDate(fod)

response.write alder1
response.write "<BR><BR>" & alder2


%>

-- xs

istedet for DateValue kan du også bruge CDate..