adding time duration together

•

What is DaniWeb IT Discussion Community?

You're currently browsing the VB.NET section within the Software Development category of DaniWeb, a massive community of 363,385 software developers, web developers, Internet marketers, and tech gurus who are all enthusiastic about making contacts, networking, and learning from each other. In fact, there are 2,825 IT professionals currently interacting right now! Registration is free, only takes a minute and lets you enjoy all of the interactive features of the site.

Join our community!

Please support our VB.NET advertiser:

Thread Tools Display Modes

Views: 413 | Replies: 1

•

Join Date: Apr 2008

Posts: 32

Reputation: ninjaimp is an unknown quantity at this point

Rep Power: 1

Solved Threads: 0

ninjaimp

Offline

Light Poster

adding time duration together

May 12th, 2008

Hi

I have a small program that imports data and part of this data is in duration format:

00:00:00
(HoursMinutes,Seconds)

What im trying to do is add these together so that they show a cumalative duration, but im not at all sure how?

•

Join Date: Apr 2007

Location: Birmingham

Posts: 366

Reputation: Fungus1487 is an unknown quantity at this point

Rep Power: 2

Solved Threads: 34

Fungus1487 Fungus1487 is offline

Offline

Posting Whiz

Re: adding time duration together

May 13th, 2008

Do you have this data in date variables or as strings ?

ill presume its a string if it isnt skip the first part.

 Help with Code Tags 
 VBNET Syntax (Toggle Plain Text) 
Dim totalTime As New TimeSpan(0, 0, 0) ' Declare a timespan outside the loop to hold the count
 
For Each Record ' Create your loop to iteratively work through the returned results
 
    Dim arrStr As String() = yourVariable.split(cchar(":")) ' Break apart your string if you already have it in DateTime object then simply change the method below to use the "Hours", "Minutes" and "Seconds" property of the object
    Dim timTmp As TimeSpan = new TimeSpan(cint(arrStr(0)), _
            cint(arrStr(1)), cint(arrStr(2)))
    totalTime = totalTime.Add(timTmp)
 
Next
 
MsgBox(totalTime.Days & " days, " & totalTime.Hours & " hours, " & _
        totalTime.Minutes & " minutes and " & totalTime.Seconds & " seconds")
Dim totalTime As New TimeSpan(0, 0, 0) ' Declare a timespan outside the loop to hold the count

For Each Record ' Create your loop to iteratively work through the returned results

    Dim arrStr As String() = yourVariable.split(cchar(":")) ' Break apart your string if you already have it in DateTime object then simply change the method below to use the "Hours", "Minutes" and "Seconds" property of the object
    Dim timTmp As TimeSpan = new TimeSpan(cint(arrStr(0)), _
            cint(arrStr(1)), cint(arrStr(2)))
    totalTime = totalTime.Add(timTmp)

Next

MsgBox(totalTime.Days & " days, " & totalTime.Hours & " hours, " & _
        totalTime.Minutes & " minutes and " & totalTime.Seconds & " seconds")