Antal dage/timer/menutter imellem nu og en dato + 14 dage

Hmm - blev lidt uklart synes jeg selv... Det jeg vil er at beregne tiden mellem 2 datoer, den ene dato er now, mens den anden dato skal beregnes udfra en dato (som er mindre end now) som der læggers 14 hele dage oven i.

Ja datediff kan ikke bruges direkte så man må selv lige lave lidt:


function TimeCalc(StartTime, FinishTime) 
Dim diff, mins, hours, secs
diff = datediff("n",StartTime,FinishTime)
dage = Int(diff / (24*60))
hours = Int(60*(diff / 24*60) - dage))
mins = Int(diff - ((24*60)* dage) - (60 * hours))

TimeCalc = dage & " dage " & hours & " timer " & mins & " minutter"
end function


Så kan du kalde den sådan her:

startDato = Now()
slutDato = "30-01-2004 12:23:34"
Response.Write TimeCalc (startDato, slutDato)

Okay, har fået tilpasset funktionen så den kan udregne antal ´dage/timer/minutter - men skal have lagt 14 dage til en af datoerne (slutdatoen) - hvordan gør jeg det?

    function TimeCalc(StartTime, FinishTime) 
        Dim diff, mins, hours, secs
        diff = datediff("n",StartTime,FinishTime)
        dage = Int(diff / (24*60))
        hours = Int(60*(diff / 24*60) - dage)
        mins = Int(diff - ((24*60)* dage) - (60 * hours))

        if dage > 1 then
            TimeCalc = dage & " dage"
        elseif hours > 1 then
            TimeCalc = hours & " timer"
        else
            TimeCalc = mins & " minutter"
        end if
    end function

Så kan du bruge dateadd hvis den altid skal ligge 14 dage til:

    function TimeCalc(StartTime, FinishTime)
        Dim diff, mins, hours, secs
        FinishTime = DateAdd("d",14,FinishTime)
        diff = datediff("n",StartTime,FinishTime)
        dage = Int(diff / (24*60))
        hours = Int(60*(diff / 24*60) - dage)
        mins = Int(diff - ((24*60)* dage) - (60 * hours))

        if dage > 1 then
            TimeCalc = dage & " dage"
        elseif hours > 1 then
            TimeCalc = hours & " timer"
        else
            TimeCalc = mins & " minutter"
        end if
    end function

virker det?

Jep ;)