Addere en række tider

Lav det hele om til sekunder, læg sammen og formatter tilbage til hh:mm:ss

..O

Klart, det prøver jeg i morgen... vender tilbage...

Tak for ideen. Jeg har fået lavet funktioner og implementeret udregningerne. Der gik mere end en dag. Svar lige for deling af point.

Svar

Tak for nu. Der var åbenbart ikke nogen standard funktioner i ASP til at omregne en tid til sekunder og en anden tilbage igen.

Her er de jeg har lavet, og som fungerer, men sikkert kan laves smartere:

Function TimeToSeconds(ByVal TimeX)
    If Len(TimeX) = 8 Then
        minutePartTimeToSeconds = mid(timeX,4,2) * 60
        secondPartTimeToSeconds = mid(timeX,7)
    Else
        minutePartTimeToSeconds = mid(timeX,1,2) * 60
        secondPartTimeToSeconds = mid(timeX,4)
    End If
    TimeToSeconds = minutePartTimeToSeconds+secondPartTimeToSeconds
End Function

Function SecondsToTime(ByVal SecondsX)
    secondsToTime0 = SecondsX/60
    If InStr(secondsToTime0,",") Then
        secondsToTimeMinutePart0 = left(secondsToTime0,InStr(secondsToTime0,",")-1)
    Else
        secondsToTimeMinutePart0 = secondsToTime0
    End If
    If Len(secondsToTimeMinutePart0) = 1 Then
        secondsToTimeMinutePart = "0" & secondsToTimeMinutePart0
    Else
        secondsToTimeMinutePart = secondsToTimeMinutePart0
    End If
    If InStr(secondsToTime0,",") Then
        secondsToTimeSecondPart0 = mid(secondsToTime0,InStr(secondsToTime0,",")+1)
    Else
        secondsToTimeSecondPart0 ="00"
    End If
    secondsToTimeSecondPart0 = ("0," & secondsToTimeSecondPart0)*60
    secondsToTimeSecondPart0 = Round(secondsToTimeSecondPart0)
    If Len(secondsToTimeSecondPart0) = 1 Then
        secondsToTimeSecondPart = "0" & secondsToTimeSecondPart0
    Else
        secondsToTimeSecondPart = secondsToTimeSecondPart0
    End If
    SecondsToTime = secondsToTimeMinutePart & ":" & secondsToTimeSecondPart
End Function