Hvor gamle er folk

hvor precis skal det være?

med decimaler? f.eks. 26,5 ?

-- xs

her er 2 versioner.. hvor alderen vises som f.eks. 24 og en med decimaler f.eks 24,6

<%
'------- 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
%>


....værsågod


-- xs

Hvorfor ikke ? Det er en operation mindre.

Function DiffADate(theDate)
  DiffADate = "alder: " & Int(DateDiff("yyyy", theDate, Date))
End Function

Venner - denne her regner rigtig - tager CPRNR som en tekst streng og beregner dags dato alser. Gælder ikke for børn under 3 år hæhæ.

Henrik

ALDER= Int((Now()-DateValue(Mid([Fdata];1;2) & "-" & Mid([Fdata];3;2) & "-19" & Mid([Fdata];5;2)))/365,25)

Takker for svarene... Brugte den først af excession

HM - men regner den nu rigtigt. prøv at checke formularen omkring en fødselsdag. Det var derfor, at jeg gik over til min metode. De andre er ikke nøjaftige nok !

Gå aldrig tilbage til en fuser. Brug min metode -


Henrik

virker den ikke?