Beregning af tid

strTime = rs("dato")
strSec = DateDiff("s",now(),strDato)
strMin = DateDiff("n",now(),strDato)
strHour = DateDiff("h",now(),strDato)

strTime = strHour&":"&strMin&":"&strSec
---------------------------------------
Sådan her? :)

Hov, nej:
-------------------
strTime = DateDiff("s",now(),rs("dato"))
strSec = (strTime mod 60)
strMin = (strTime div 60)
strHour = (strMin div 60)

strTime = strHour&":"&strMin&":"&strSec
-------------------
Sådan her! :) Det andet holder ikke.

Det virker ikke! :(
Microsoft VBScript compilation

Det skulle også helst være, dage, timer og minutter.

står der ikke hvilken linje?

Fejl i linie:

strMin = (strTime div 60)

bruger VBScript ikke \ for div ??

Hmmm.. Jo! :) Jeg tror nu det er /.

Med \ & / får jeg ingen VBSript fejl, men et resultat der ser noget underlig ud:

-9795,04722222222:-587702,833333333:-50

/ laver normal division
\ laver heltals division
der skal bruges hel tals division

Unanset / eller \ får jeg bare en masse masse tal og komma:

Med / "-45366666,,5000006546:-448455555:-60"
Med \ "-9795,04722222222:-587702,833333333:-50"

Ok, det kan ikke lade sig gøre.
Lukker spg.

d = t \ 86400
h = (t mod 86400) \ 3600
m = (t mod 3600) \ 60
s = t mod 60

virker fint hos mig

Ja men det giver jo stadig ikke et resultat der kan bruges.

Når dagene er beregnet, skal de brugte sekunder først trækkes fra, inden timer beregnes, så skal disse brugte sekunder trækkes fra og til sidst beregnes minutterne af de resterende sekunder.

Eller er det helt galt?

Dette er testet! :)
-----------------------------------
<%strDate = rs("date")
strDate = DateDiff("n",strDate,now())

Response.Write strDate & "<br>"

strDay = (strDate \ 1440)
strHour = ((strDate mod 1440) \ 60)
strMin = ((strDate mod 1440) mod 60)

Response.Write strDay&" dage, "&strHour&" timer, "&strMin&" minutter"%>

obhat>

mod goer praecis det du snakker om

(og ja - jeg testede min kode inden jeg postede !)

Flot w13 >> det virker :)
Men resultatet vises med negativt fortegn, kan det ændres, eller måske kan -fjernes?

Hvad hvis du retter:
<%strDate = rs("date")
strDate = DateDiff("n",strDate,now())
Til:
<%strDate = rs("date")
strDate = DateDiff("n",now(),strDate)
?

Perfekt. rigtig mange tak for hjælpen :-)