How to add to times??

[CyberCarsten]

How can I add to times in the following format:

Ex.

00:00:02 + 00:00:02 = 00:00:04

???

[CyberCarsten]

Never mind, figured it out...I think...

[seaweed]

If you figured it out, feel free to either share your knowledge (answer your own post ) or delete the thread by deleting the original post...

[Matthew Gates]

He most likely used the DateAdd function.
Don't know why they call it the DateAdd function when you can add times as well .

[JamesM]

To add time convert it to the lowest common interval of time.

I mean if all your data is hours and minutes convert to minutes sum the data, then convert back to hours and minutes.

If data is hours minutes and seconds, convert to seconds sum the seconds then convert back.

Here are a couple of conversion functions I have been working on that allow you to convert time values greater than 24 hrs to seconds and back again (Note where time> 24 hrs is involved none of the time/date functions work which is why I have avoided using them):

Function TimeToSeconds(ByVal Time As String) As Variant
 'by James Mayo
 'In: Time String In format hh:mm:ss
 'Out: Number of seconds Or "" If cannot calculate seconds
 
 Dim a As Variant
 Dim i&
 
 TimeToSeconds = ""
 a = Split(Time, ":", , vbTextCompare)
 For i = 0 To UBound(a)
    If Not IsNumeric(a(i)) Then
        TimeToSeconds = ""
        Exit Function
    Else
        a(i) = Fix(a(i)) 'only want Integer component
    End If
    
    Select Case i
        Case 0
            TimeToSeconds = a(i) * 3600 'hours
        Case 1
            TimeToSeconds = TimeToSeconds + a(i) * 60 'minutes
        Case 2
            TimeToSeconds = TimeToSeconds + a(i) 'seconds
        Case Else
            TimeToSeconds = ""
    End Select

 Next i

End Function


Function SecondsToTime(ByVal Seconds As Double) As String
 'by James Mayo
 'In: Seconds
 'Out: String hh:mm:ss Or "" If cannot calculate
 Dim Hours&, Minutes&
 
 SecondsToTime = ""
 If Seconds > 0 Then
    Seconds = Clng(Seconds) 'only interested In Integer component
    hours = Clng(Seconds / 3600)
    Seconds = Seconds - (hours * 3600)
    minutes = Clng(Seconds / 60)
    Seconds = Seconds - (minutes * 60)
    SecondsToTime = hours & ":" & minutes & ":" & Seconds
 End If
 End Function

[Lord Orwell]

but you could use the built in functions to isolate the individual parts. min(time) sec(time) etc.

[JamesM]

I tried Lord Orwell, but this didn't work:

MsgBox Minute("25:01:01")

[Lord Orwell]

of course not. That's an illegal time. there are only 24 hours in a day, and it starts at zero.

[JamesM]

Perhaps I didn't get your point about using the built in functions to isolate the individual parts. Could you please ellaborate?