Dato med interval.

Tror jeg er ved at blive forvirret af det program. "To" er altid = Nu, og "From" der skal beregnes.

<%

Dim dtmTo
dtmTo = Now()

Dim dtmFrom
' 60 minutter (1 time)
dtmFrom = DateAdd("h", -1, dtmTo)
' 24 timer (1 døgn)
'dtmFrom = DateAdd("d", -1, dtmTo)
' 30 dage
'dtmFrom = DateAdd("d", -30, dtmTo)
' 365 dage (1 år)
'dtmFrom = DateAdd("yyyy", -1, dtmTo)

Dim strLinkParameters
strLinkParameters = "from=" & QueryStringDateFormat(dtmFrom) & "&to=" & QueryStringDateFormat(dtmTo)


Function QueryStringDateFormat(ByVal f_dtmValue)
If Not IsDate(f_dtmValue) Then Exit Function
QueryStringDateFormat = Trim(Year(f_dtmValue)) &_
                        Right("0" & Trim(Month(f_dtmValue)), 2) &_
                        Right("0" & Trim(Day(f_dtmValue)), 2) &_
                        "-" &_
                        Right("0" & Trim(Hour(f_dtmValue)), 2) &_
                        Right("0" & Trim(Minute(f_dtmValue)), 2)
End Function

%>