• Home
 · 
• Miscellaneous
 · 
• Count elapsed time between two time.

Count elapsed time between two time.

Count elapsed time between two time.

Rate Count elapsed time between two time.

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

' *******************************************************************
' Function Name : ElapsedTime                                       *
' Created By    : Herry Hariry Amin                                 *
' Email         : [email protected]                                  *
' Language      : VB4, VB5, VB6                                     *
' Example       : sYourVariable = ElapsedTime(tStartTime,tStopTime) *
' *******************************************************************
Dim dtr, dtl, jml As Long
    
    dtl = (Hour(tStart) * 3600) + (Minute(tStart) * 60) + (Second(tStart))
    dtr = (Hour(tStop) * 3600) + (Minute(tStop) * 60) + (Second(tStop))

    If tStop < tStart Then
       jml = 86400
    Else
       jml = 0
    End If
    jml = jml + (dtr - dtl)
    
    ElapsedTime = Format(Str(Int((Int((jml / 3600)) Mod 24))), "00") + ":" + Format(Str(Int((Int((jml / 60)) Mod 60))), "00") + ":" + Format(Str(Int((jml Mod 60))), "00")
     
End Function