Subtracting time

[walterf25]

Hello all, can anyone please help me by teaching me how to subtract two different time, let's say i start something at 10:05 and it finishes at 10:15, how can i subtract this two times? anyone?

thanks,
Walter

 

[NJDude]

You will have to save the TICKS (convert the time to ticks) then substract.

 

[walterf25]

subtract time

yeah i thought so, argh, just wondering if there was already a function that did it!

thank you sir,
Walter

 

[Mahares]

Will this do it for you?

Dim DateStart, DateEnd, TimeDiff As Long
DateStart = DateTime.DateParse("05/11/2012") + DateTime.TimeParse("10:05:00 AM")
DateEnd = DateTime.DateParse("05/11/2012") + DateTime.TimeParse("10:15:00 AM")
TimeDiff = DateEnd - DateStart
Msgbox(TimeDiff/1000/60,"Elapsed Minutes")

Answer: 10

 

[NJDude]

If I may enhance the code provided by Mahares, I converted it to a function:

Sub GetDifference(dDateStart As String, dTimeStart As String, dDateEnd As String, dTimeEnd As String) As Double

    Dim DateStart, DateEnd, TimeDiff As Long

    DateStart = DateTime.DateParse(dDateStart) + DateTime.TimeParse(dTimeStart)
    DateEnd = DateTime.DateParse(dDateEnd) + DateTime.TimeParse(dTimeEnd)
    
    TimeDiff = DateEnd - DateStart
            
    Return TimeDiff / 1000 / 60

End Sub

So you can call it like this:

X = GetDifference("05/11/2012", "10:05:00 AM", "05/11/2012", "10:15:00 AM")
   
Msgbox("Minutes=" & X, "Result")