how do i find time diffrence

im trying to find time diffrence between two times... in hours,mins,sec

example
10/24/2004 12:12:47 AM
10/24/2004 12:12:49 AM

in this case its 0 hours, 0 mins, and 2 seconds



the format for the date - time string will stay the same... in each case...

thx
Johnny
aka Pern

JohnnyAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

dfu23Commented:
Use the DataDiff function ... example:

http://www.experts-exchange.com/Programming/Q_21069414.html

0
KGregCommented:
Date.Subtract returns a TimeSpan object, from which you can get the total days, seconds, minutes, etc.

Msgbox(Date.Subtract(Now, MyDate).TotalSeconds.ToString)

KGREG
0
GlomCommented:
Hi,

Dim a as Date = #10/24/2004 12:12:47 AM#
Dim b as Date = #10/24/2004 12:12:49 AM#
Dim diff As TimeSpan = b.Subtract(a)

Then you can access to all the TimeSpan properties : for example diff.Seconds() to have the number of second elapsed between a and b.

Glom
0
Mike TomlinsonMiddle School Assistant TeacherCommented:
I agree with KGreg and Glom but if you are getting the dates as strings then use DateTime.Parse() first to convert them to dates and then proceed to use the .Subtract() function with the TimeSpan() class:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim strDateA As String = "10/24/2004 12:12:47 AM"
        Dim strDateB As String = "10/24/2004 12:12:49 AM"

        Dim dateA As DateTime = DateTime.Parse(strDateA)
        Dim dateB As DateTime = DateTime.Parse(strDateB)

        Dim ts As TimeSpan = dateB.Subtract(dateA)

        MsgBox(Format(ts.Hours, "00") & ":" & Format(ts.Minutes, "00") & ":" & Format(ts.Seconds, "00"), MsgBoxStyle.Information, "Difference")
    End Sub

~IM
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
JohnnyAuthor Commented:
Perfect thx
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic.NET

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.