Alder på chatter

Her er et script kode det kan evt laves som function.

dato = \"29-02-1985\"


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

Ja..men det skal hentes fra en burger der hedder eks. lars hvordan gør jeg det?

Her lagt ind i en function findAlder:


function findAlder(dato)
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
findAlder = years & \" år \" & mounths & \" måneder \" & days & \" dage.\"
end function


Du har tabellen p_age.

har du en side hvor du skriver data ud omkring folk og hendtet data fra databasen i et recordset?

Så kan du jo kalde function med

Response.write \"Født :\"&rs(\"p_age\") & \" alder \" & findAlder(rs(\"p_age\"))

Tjekker lige om det virker på min site..så kommer der points :)

Hvad hvis det skrives:
1985-29-2

Det kan godt laves om i koden..
Bare det altid er det samme altså År-måned-dag

Så skal formatet være åå-månede-day som input

function findAlder(dato)
mydato = split(dato,\"-\")
dato = mydato(2) & \"-\" & mydato(1) & \"-\" & mydato(0)
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
findAlder = years & \" år \" & mounths & \" måneder \" & days & \" dage.\"
end function

Har fået det til at virke!