Working with Time [RESOLVED]

[bat711]

In a program I'm working on I'm trying to read text log files import them into a DB and sum the CPU time certain processes are using. The only problem is I'm not sure you can add something like 40:30 + 113:47 to get 154:17 in an HHH:MM format (or anything similar). Any suggestions?

[MartinLiss]

There may well be a simpler way but this works

Const TIME1 = "40:30"
    Const TIME2 = "113:47"
    Dim strParts1() As String
    Dim strParts2() As String
    Dim intMinutes As Integer
    
    strParts1 = Split(TIME1, ":")
    strParts2 = Split(TIME2, ":")
    
    intMinutes = CInt(strParts1(1)) + CInt(strParts2(1))
    If intMinutes > 59 Then
        MsgBox CInt(strParts1(0)) + CInt(strParts2(0)) _
            + (CInt(strParts1(1)) + CInt(strParts2(1))) \ 60 _
            & ":" & Format((CInt(strParts1(1)) + CInt(strParts2(1))) Mod 60, "00")
    Else
        MsgBox CInt(strParts1(0)) + CInt(strParts2(0)) _
            & ":" & Format((CInt(strParts1(1)) + CInt(strParts2(1))), "00")
    End If

[bat711]

That's about what I figured, and was afraid of. Now I just need to figure out a way to read in the log file...

[bat711]

Thanks I was able to use this general idea in the program and it works nicely. Unfortunately the log files I'm working with don't have a good format to work with so it looks like the project will die. Thanks for your help again.

[MartinLiss]

Can you post an example of what is actually in the log file?

[visualAd]

http://www.vbforums.com/showthread.php?t=333701

I think this is the log file he's referring to. I wrote a function which extracts the time and returns it in string format.