---
title: "räkna ut datum"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/14118-räkna-ut-datum"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Cactuz"
published: "2002-01-30T21:22:00.000Z"
updated: "2002-01-31T20:55:00.000Z"
replies: 18
views: 379
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/14118-räkna-ut-datum"
---

# räkna ut datum

## #1 — Cactuz, 2002-01-30T21:22Z

jag behöver ett script som tar dagens datum o subtraherar med ett annat datum o räknar ut hur många dagar-månader-år det är emellan

Permalänk: https://www.webforum.nu/p/14118

## #2 — @nders, 2002-01-30T21:25Z

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

Mvh,

Permalänk: https://www.webforum.nu/p/308950

## #3 — Cactuz, 2002-01-30T21:35Z

får den inte o funka :(

fattade inte så mkt heller :P

Permalänk: https://www.webforum.nu/p/308951

## #4 — @nders, 2002-01-30T21:37Z

Hur ser din kod ut då?

Permalänk: https://www.webforum.nu/p/308952

## #5 — Cactuz, 2002-01-30T21:43Z

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 :)

Permalänk: https://www.webforum.nu/p/308953

## #6 — @nders, 2002-01-30T21:50Z

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\]

Permalänk: https://www.webforum.nu/p/308954

## #7 — LarsG, 2002-01-30T21:51Z

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

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

Permalänk: https://www.webforum.nu/p/308955

## #8 — Cactuz, 2002-01-30T22:03Z

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\]

Permalänk: https://www.webforum.nu/p/308956

## #9 — LarsG, 2002-01-30T22:16Z

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
```

Permalänk: https://www.webforum.nu/p/308957

## #10 — Cactuz, 2002-01-30T22:24Z

tack! nu funkar det perfekt :)

Permalänk: https://www.webforum.nu/p/308958

## #11 — Cactuz, 2002-01-31T16:28Z

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

Permalänk: https://www.webforum.nu/p/308959

## #12 — Cactuz, 2002-01-31T18:26Z

nån måste ju veta

Permalänk: https://www.webforum.nu/p/308960

## #13 — @nders, 2002-01-31T18:30Z

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,

Permalänk: https://www.webforum.nu/p/308961

## #14 — Cactuz, 2002-01-31T18:36Z

syntaxfel

Permalänk: https://www.webforum.nu/p/308962

## #15 — @nders, 2002-01-31T18:51Z

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

Sorry.

Prova igen:

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

Mvh,

Permalänk: https://www.webforum.nu/p/308963

## #16 — Cactuz, 2002-01-31T19:28Z

fortfarande samma fel

Permalänk: https://www.webforum.nu/p/308964

## #17 — LarsG, 2002-01-31T19:36Z

```
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
```

Permalänk: https://www.webforum.nu/p/308965

## #18 — Cactuz, 2002-01-31T20:43Z

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å

Permalänk: https://www.webforum.nu/p/308966

## #19 — LarsG, 2002-01-31T20:55Z

På vilken rad får du felet?

Gissning: Du har funktionsdefinitionen  inuti en loop.

Permalänk: https://www.webforum.nu/p/308967

---

Tråden på webben: https://www.webforum.nu/amne/asp/14118-räkna-ut-datum