timer min sec mellem to tider

Response.Write(DateDiff("n", tid1, tid2))

//>Rune

den skulle gerne returnere i timer:minutter:sekunder

Så skal du bare bruge "n" som minuts "h" som hours "s" secunds ;-)

//>Rune

Noget i denne stil:

Function MyTime(varDate)

nu = now()

Tim = datediff("h", varDate, nu)

tmpTime = dateadd("h", Tim, varDate)
Min = datediff("n", tmpDate, nu)

tmpTime = dateadd("n", Min, tmpTime)
Sec = datediff("s", tmpDate, nu)

MyDate = Tim & ":" & Min & ":" & Sec

End Function

Må hellere bruge samme variabelnavn :-)

Function MyTime(varDate)

nu = now()

Tim = datediff("h", varDate, nu)

tmpTime = dateadd("h", Tim, varDate)
Min = datediff("n", tmpTime, nu)

tmpTime = dateadd("n", Min, tmpTime)
Sec = datediff("s", tmpTime, nu)

MyDate = Tim & ":" & Min & ":" & Sec

End Function

Jeg har denne function som tager to tidspunkter som input:

function TimeCalc(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

TimeCalc = hours & ":" & mins & ":" & secs
end function

----


sStartTime = "12:30:00"
sEndTime = "13:01:34"
sTimeDiff = TimeCalc(sStartTime, sEndTime)
response.write sTimeDiff