Datediff men hvor'n ??

Du er nød til selv at lave en function som regner det ud i timer minutter og sekuner, jeg har lavet denne function :

sStartTime = "24-12-2002 14:00:00"
sEndTime = "25-12-2002 16:23:15"
sTimeDiff = TimeCalc("database", sStartTime, sEndTime)


--- og selv functionen:

function TimeCalc(Display, StartTime, FinishTime)
Dim diff, mins, hours, secs
diff = datediff("s",StartTime,FinishTime)
'set the minutes ignoring the remaining fraction
hours = int(diff / (60*60))
' set the minutes by using the remaining fraction and multiplying by 60 i.e., .5 * 60 = 30
mins = round(60*(diff / (60*60) - hours),0)
secs = round(diff - ((60*60)* hours) - (60 * mins),0)
hours = string(2-len(hours),"0") & hours
mins = string(2-len(mins),"0") & mins
secs = string(2-len(secs),"0") & secs
' how do we want to return the calculation..?
select case lcase(Display)
  case "screen"
    TimeCalc = hours & " hours and " & mins & " minutes"
  case "database"
    TimeCalc = hours & ":" & mins & ":" & secs
end select
end function

eagleeye > Jo meget muligt, men hvad hjælper det når det ikke virker...

>> "The page cannot be displayed" <<

Jeg aner jo ikke hvordan jeg skal tilpasse den til min...HELP!

Lig funcvtion i bunden af din kode

og der hvor du skal bruge tiden.

Response.write TimeCalc("database", strSt, Now)


Jeg er nød til at smutte håber du kan få det til at virker :)

Eller så prøv at lave dette eks:

<html>
<body>
<%
sStartTime = "24-12-2002 14:00:00"
sEndTime = "25-12-2002 16:23:15"
Response.write "Tiden er : " & TimeCalc("database", sStartTime, sEndTime)
%>
</body>
</html>
<%
function TimeCalc(Display, StartTime, FinishTime)
Dim diff, mins, hours, secs
diff = datediff("s",StartTime,FinishTime)
'set the minutes ignoring the remaining fraction
hours = int(diff / (60*60))
' set the minutes by using the remaining fraction and multiplying by 60 i.e., .5 * 60 = 30
mins = round(60*(diff / (60*60) - hours),0)
secs = round(diff - ((60*60)* hours) - (60 * mins),0)
hours = string(2-len(hours),"0") & hours
mins = string(2-len(mins),"0") & mins
secs = string(2-len(secs),"0") & secs
' how do we want to return the calculation..?
select case lcase(Display)
  case "screen"
    TimeCalc = hours & " hours and " & mins & " minutes"
  case "database"
    TimeCalc = hours & ":" & mins & ":" & secs
end select
end function
%>

NÆÆÆH! Virker ikke...

Okay nu har jeg ligesom fået den til at virke men et eller andet sted er der altså en fejl fordi nogen gange kommer der en string fejl og bagefter så viser den MINUS tal og går op til 00 og så virker den...
SÅååå du skal ligesom lige have den rettet lidt til tror jeg !!

Du skal bare lade være med at tælle dobbelt...  = når du har talt timerne med under timer, skal de ikke tælles med under minutter!

strDiffH = datediff("h", strSt, strDiffNow)
strDiffM = datediff("n", dateadd("h", strDiffH, strSt), strDiffNow)

osv....

_just4fun_  > Nu har jeg godt nok sagt OK for dit svar da det virker, men har dog lidt problemer med at få udregnet sekunderne !!!

Hvordan det ??

Lidt mere overskueligt:
'* Start med et eller andet tidspunkt

strDiffH = datediff("h", strSt, strDiffNow)

'* læg timerne til det opringelige tidspunkt og brug det nye punkt som startpunkt.
strSt = dateadd("h", strDiffH, strSt)
strDiffM = datediff("n", strSt , strDiffNow)

'* læg minutterne til forrige tidspunkt og brug det nye punkt som startpunkt.
strSt = dateadd("n", strDiffM, strSt)
strDiffS = datediff("s", strSt, strDiffNow)

ØØhh den med sekunder virker altså ikke 100%

Nogen gange for jeg et minus tal - why ???

... Fordi tiden ikke er synkroniseret mellem databasen og ASP?

hvad mener du ??

ICQ: 121911437