Viser hvor langt tid der er gået fra en bestemt dato.

Hej igen :o)

Du kan bruge DateDiff

Kan jeg antage at du allerede har den dato som skal undersøges?

Så er det sådan:
<%
'DateToCheck er datoen der skal undersøges

YearsGone = DateDiff("yyyy", Now(), DateToCheck)
MonthsGone = DateDiff("m", Now(), DateToCheck)
WeeksGone = DateDiff("ww", Now(), DateToCheck)
osv

Her er mulige intervaller:
yyyy: Year
q: Quarter
m: Month
y: Day of year
d: Day
w: Weekday
ww: Week of year
h: Hour
n: Minute
s: Second

Tag lige at checkke hvad der sker omkring nytår, jeg er ikke helt sikker

Hvad vil du have? Hvis der er gået et år, to måneder og 3 uger vil den jo fortælle dig at der er gået et år, og at der er gået 14 måneder, og 63 uger (ca.)

Det er ikke det du vil, vel?

sådan her :

<%
session.lcid= 1030
server.scripttimeout = 4
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
    <title>Untitled</title>
</head>

<body>
<%
datostart = cdate("02-06-1974 13:24:22")
daar=0
dmaaneder=0
duger = 0
ddage=0
dtimer=0
dminutter=0
dsekunder=0

'år
while dateadd("yyyy",1,datostart) < now
    datostart=dateadd("yyyy",1,datostart)
    daar=daar+1
wend

'måneder
while dateadd("m",1,datostart) < now
    datostart=dateadd("m",1,datostart)
    dmaaneder=dmaaneder+1
wend

'uger
while dateadd("ww",1,datostart) < now
    datostart=dateadd("ww",1,datostart)
    duger=duger+1
wend

'dage
while dateadd("d",1,datostart) < now
    datostart=dateadd("d",1,datostart)
    ddage=ddage+1
wend

'timer
while dateadd("h",1,datostart) < now
    datostart=dateadd("h",1,datostart)
    dtimer=dtimer+1
wend

'minutter
while dateadd("n",1,datostart) < now
    datostart=dateadd("n",1,datostart)
    dminutter=dminutter+1
wend

'sekunder
while dateadd("s",1,datostart) < now
    datostart=dateadd("s",1,datostart)
    dsekunder=dsekunder+1
wend

response.write daar & " " &dmaaneder &" " &duger&" " &ddage&" " &dtimer&" " &dminutter&" "&dsekunder
%>


</body>
</html>

Smukt og enkelt -mundi-, DateDiff gav mig en MASSE problemer.

madz15 , var det hvad du skulle bruge ?

<%
'yyyy    - Year
'q        - Quarter
'm        - Month
'y        - Day of year
'd        - Day
'w        - Weekday
'ww     - Week of year
'h         - Hour
'n         - Minute
's        - Second

Dim MyDate, TmpDate, dYears, dMonths, dWeeks, dDays, dHours, dMinutes, dSeconds

Session.LCID = 1030            'Dansk Tid/Valuta Format
MyDate        = cDate("10-06-1983 00:00:00")
TmpDate        = MyDate
dYears        = ModDate("yyyy")
dMonths        = ModDate("m")
dWeeks        = ModDate("ww")
dDays        = ModDate("d")
dHours        = ModDate("h")
dMinutes    = ModDate("n")
dSeconds    = ModDate("s")

Response.Write dYears & " år - " & dMonths & " måneder - " & dWeeks & " uger - " & dDays & " dage - " & dHours & " timer - " & dMinutes & " min. - " & dSeconds & " sec. <br>"

Function ModDate(Interval)
    Dim TmpVal
    TmpVal = 0
    Do Until DateAdd(Interval, 1, TmpDate) > Now
        TmpDate = DateAdd(Interval, 1, TmpDate)
        TmpVal    = TmpVal + 1
    Loop
    ModDate = TmpVal
End Function
%>

tbm_iceman > Det er det samme som mundi's, bare med et par twists.

Men det er en god ide at lave en enkelt funktion som kan tage sig af alle dato-delene

Jeg brugte -mundi-'s, og den lader til at virke...
Tak