Datediff .....

Undskyld dårlig stavning... håber i fatter helheden :)

Hvis du i Session_OnStart sætter Session(\"tid\") = Now, kan du udskrive tidsforskellen i timer, minutter og sekunder sådan her:

Dim dtmNow

dtmNow = Now

Response.Write(\"Tid online: \")
Response.Write(CStr(DateDiff(\"h\", Session(\"tid\"), dtmNow)) & \" timer, \")
Response.Write(CStr(DateDiff(\"n\", Session(\"tid\"), dtmNow) Mod 60) & \" minutter, og \")
Response.Write(CStr(DateDiff(\"s\", Session(\"tid\"), dtmNow) Mod 60) & \" sekunder\")

Hvis din Session eksempelvis er halvandet minut gammel, er DateDiff(\"s\", Session(\"tid\"), dtmNow) lige 90 sekunder. De 60 af dem tæller dog allerede med som det ene minut, derfor bruges Mod operatoren til at finde de resterende sekunder.

Når den kommer op over 30 sekunder skoder den!!

Så ligger den et minut ekstra oven i.

Hvorfor?

Sært.. øjeblik.

Well, enten har jeg lavet en obskur fejl, eller også opfører DateDiff sig lidt underlidt. Under alle omstændigheder ser nedenstående ud til at virke efterhensigten:

Dim dtmNow, lngSecDiff

dtmNow = Now
lngSecDiff = DateDiff(\"s\", Session(\"tid\"), dtmNow)

Response.Write(\"Tid online: \")
Response.Write(CStr(Int(lngSecDiff / 3600)) & \" timer, \")
Response.Write(CStr(Int(lngSecDiff / 60) Mod 60) & \" minutter, og \")
Response.Write(CStr(lngSecDiff Mod 60) & \" sekunder\")