如果想計算兩個時間之差，該使用什么函數呢？今天錯新技術頻道小編教大家計算兩個時間之差的函數，希望對你學習這方面知識有所幫助！
'******************************
'||Function?TimeDiff(sBegin,?sEnd)
'||本函數計算兩個時間的差，可以不用更改直接使用
'||作者：machinecat?2001/10/26
'******************************
'******************************
'注：首先需要判斷用戶輸入的sBegin與sEnd之間的大小
'可以通過DataDiff函數獲得兩者之間的時間差，不需要進行復雜的時間換算
復制代碼 代碼如下:
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?&?"小時"?&?iMinute?&?"分鐘"?&?iSecond?&?FormatNumber(iMiniSecond,?3)?&?"秒"
End?Function?
上文是錯新技術頻道小編為大家搜集到的相關介紹，希望對你了解計算兩個時間之差的函數有所幫助!
