計算兩個時間差的函數
'******************************
'||FunctionTimeDiff(sBegin,sEnd)
'||本函數計算兩個時間的差，可以不用更改直接使用
'||作者：machinecat2001/10/26
'******************************
'******************************
'注：首先需要判斷用戶輸入的sBegin與sEnd之間的大小
'可以通過DataDiff函數獲得兩者之間的時間差，不需要進行複雜的時間換算
'******************************
FunctionTimeDiff(sBegin,sEnd)
DimiHourB,iMinuteB,iSecondB,iMiniSecondB
DimiHourE,iMinuteE,iSecondE,iMiniSecondE
DimdTimeB,dTimeE,dTimeDiff
DimiHour,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)&"秒"
EndFunction