Udregne tid i hh:nn:ss ud fra forskellen mellem to datetimes

Nevermind bruger TimeSerial

Nej det virker ikke på tværs af datoer!

Jeg har denne function måske den kan hjælpe dig:

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

----


sStartTime = "14:00:00"
sEndTime = "16:23:15"
sTimeDiff = TimeCalc("database", sStartTime, sEndTime)
response.write sTimeDiff

Jeg takker