Calculating hours and minutes between to dates

timmaher · May 5th, 2005, 09:31 AM

Hi,

I'm having some difficulty trying to get to grips with the Datediff function and working out the difference in hours between to dates/times.

Has anyone successfully tried this????

Thanks

Tim

Tim

erichoangnguyen · May 5th, 2005, 02:43 PM

Tim,

what are you trying to calculate? can you give a specific example on what you want to calculate using datediff function?

i found a couple articles on date and time. hopefully these will help you.

http://support.microsoft.com/default...b;en-us;210276

http://www.mvps.org/dmcritchie/excel/datetime.htm

BrianWren · May 5th, 2005, 04:07 PM

Letâs say that you wanted to return this value into lngHoursBetween:

Code:

    Dim lngHoursBetween As Long

    lngHoursBetween = datediff("h", dtDate_1, dtDate_2)

Thatâs it! Alternately:

Code:

    Dim lngHoursBetween As Long

Code:

    lngHoursBetween = datediff("h", "05/01/2005", "05/03/2005") ' Returns     48.
    lngHoursBetween = datediff("h", "05/01/2002", "05/03/2005") ' Returns 26,352.

rgerald · May 5th, 2005, 05:03 PM

Try this:

Code:

' Code to time a process
Dim dtStartTime As Date
Dim dtEndTime As Date
Dim dDiffMinutes As Double
Dim sDiffMinutes As String

' Logic to show the running time of the process
' Put this at the beginning.

dtStartTime = Now()
Debug.Print "Started at: " & Format(dtStartTime, vbGeneralDate)
Debug.Print String(32, "=")

' Put the process to be timed here
' ====================================================================

' ====================================================================
' Put this at the end
dtEndTime = Now()
dDiffMinutes = CDbl((DateDiff("s", dtStartTime, dtEndTime)) / 60)
sDiffMinutes = CStr(dDiffMinutes)
Debug.Print String(32, "=")
Debug.Print "Started at: " & CStr(dtStartTime)
Debug.Print "Ended at:   " & CStr(dtEndTime)
Debug.Print "Run time:   " & sDiffMinutes & " minute(s)"
Debug.Print String(32, "=")

End Sub

Rand

timmaher · May 10th, 2005, 07:36 AM

Thanks for all the help guys.

Will give them a try.

Tim

Tim