Calculate the difference between two time functions

'******************************
'| Function timediff (sbegin, send)
'| The difference between the two time points in this function. You can directly use this function without changing it.
'| Author: machinecat 2001/10/26
'******************************

'******************************
'Note: First, you need to determine the size between the sbegin and send entered by the user.
'The time difference between the two can be obtained through the datadiff function without complicated time conversion.CopyCodeThe Code is as follows: function timediff (sbegin, send)
Dim ihourb, iminuteb, isecondb, iminisecondb
Dim ihoure, iminutee, iseconde, iminiseconde
Dim dtimeb, dtimee, dtimediff
Dim ihour, iminute, isecond, iminisecond

Ihourb = clng (left (sbegin, 2 ))
Iminuteb = clng (mid (sbegin, 4, 2 ))
Isecondb = clng (mid (sbegin, 7, 2 ))
Iminisecondb = clng (mid (sbegin, 10, 4 ))

Ihoure = clng (left (send, 2 ))
Iminutee = clng (mid (send, 4, 2 ))
Iseconde = clng (mid (send, 7, 2 ))
Iminiseconde = clng (mid (send, 10, 4 ))

Dtimeb = ihourb * 3600 + iminuteb * 60 + isecondb + iminisecondb/1000
Dtimee = ihoure * 3600 + iminutee * 60 + iseconde + iminiseconde/1000
Dtimediff = dtimee-dtimeb

Ihour = int (dtimediff/3600)
Dtimediff = dtimediff-ihour * 3600
Iminute = int (dtimediff/60)
Dtimediff = dtimediff-iminute * 60
Isecond = int (dtimediff)
Dtimediff = dtimediff-int (dtimediff)
Iminisecond = dtimediff

Timediff = ihour & "Hour" & iminute & "Minute" & isecond & formatnumber (iminisecond, 3) & "second"
End Function