Dato Diff.

Du kan bruger DateDiff:

Antal_aar = DateDiff("yyyy", dato, Date())

Hvis det giver - antal så byt om på Dato of Date().

jo, men jeg har en dato på: dd-mm-yyyy, fx 18-07-2002 , og ikke bare 2002.
Hvordan får jeg så trukket yyyy ud?

Jeg skal bruge det til at fastslå hvor gammel man er. Og i min database har jeg en dato med formatet: dd-mm-yyyy , og det nytter ikke noget at den tæller antal år fra det årstal man er født i, men den skal tælle antal år fra den dato man er født i... forstår du :o)?

Hvis du vil havde årstallet ud af en dato kan du bruge Year:

aartal = Year(Dato)

Jeg har engang lavet dette for en som vill havde hvor gammel man var år, måneder, dage. Måske det kan give lidt inspriration til det script:


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

den giver jo et vanvittigt svar:

<%
sBirthdate = 04-01-1985
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
%>

...giver: 107 år 11 måneder 21 dage

Prøv at sætte " omkring dato'en:

sBirthdate = "04-01-1985"

Aha... selføgelig