räkna ut datum

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vsfctdatediff.asp

Mvh,

får den inte o funka :(

fattade inte så mkt heller :P

Hur ser din kod ut då?

DateDiff(interval, 19-10-1987,30-1-2001)

Function DiffADate(theDate)
DiffADate = "Days from today: " & DateDiff("d", Now, theDate)
End Function

response.write(""&DiffADate&"")

den är säkert totalt fel :)

Det var inte helt rätt nej, men man kan ju inte göra rätt varje gång. :)

Function DiffADate(theDate)
DiffADate = "Days from today: " & DateDiff("d", Now, theDate)
End Function

response.write DiffADate(Cdate("19-10-1987"))

[r]: Du kan prova att skriva datumet i andra format också om det inte skulle fungera, exempelvis 1987-10-19.

Mvh,

[Redigerat av @nders den 30 jan 2002]

Function DiffADate(theDate)
  DiffADate = "Days from today: " & DateDiff("d", theDate,Now())
End Function

response.write DiffADate(cdate("19-10-1987"))

------------------
essentitia preter non sans multiplicandum

jo.. nu skriver den -<massa dagar>

jag vill att den visar upp i t.ex år lr nått

EDIT: fixade o byta d mot yyyy... nu visar den -15.. fast egentligen tkr jag att den borde visa -14 o sen skulle det vara kul o slippa -

[Redigerat av Cactuz den 30 jan 2002]

Datediff tar det sista datumet minus det första, därför får du ett negativt tal.

Om du vill ha antalet hela år:

Function DiffADate(theDate)
  DiffADate = "Years from today: " & round(DateDiff("d", theDate,now())/365.25)
End Function

------------------
essentitia preter non sans multiplicandum

[Redigerat av LarsG den 30 jan 2002]

tack! nu funkar det perfekt :)

nu använder jag

<%
dag = rs("dag")
manad = rs("manad")
ar = rs("ar")

Function DiffADate(theDate)
DiffADate = round(DateDiff("d", theDate,now())/365.25)
End Function
response.write DiffADate(Cdate(""&dag&"-"&manad&"-"&ar&""))

%>

o får felmeddelandet: Syntaxfel

nån måste ju veta

Det är nog något fält som har ett felaktigt värde i sig.

Vad får du om du bara skriver ut detta:

response.write dag & "-" & manad & "-" & ar))

Mvh,

syntaxfel

Det beror nog mest på att det är jag som klipper fel.

Sorry.

Prova igen:

response.write dag & "-" & manad & "-" & ar

Mvh,

fortfarande samma fel

response.write DiffADate(DateSerial(ar,manad,dag))

Det fungerar inte om ar manad eller dag innnehåller null så du behöver lägga till en kontroll för detta

if not isnull(ar) and not isnull(manad) and not isnull(dag) then
response.write DiffADate(DateSerial(ar,manad,dag))
else
response.write "Inget datum givet"
end if

------------------
essentitia preter non sans multiplicandum

nu har jag

<%
dag = rs("Alder_dag")
manad = rs("Alder_manad")
ar = rs("Alder_ar")

Function DiffADate(theDate)
DiffADate = round(DateDiff("d", theDate,now())/365.25)
End Function

if not isnull(ar) and not isnull(manad) and not isnull(dag) then
response.write DiffADate(DateSerial(ar,manad,dag))
else
response.write "Inget datum givet"
end if

%>

o får syntaxfel ändå

På vilken rad får du felet?

Gissning: Du har funktionsdefinitionen inuti en loop.

------------------
essentitia preter non sans multiplicandum