iSecond，iMiniSecondE DimdTimeB，3)秒 EndFunction ，2)) iMinuteB=clng(Mid(sBegin，sEnd) ||本函数计较两个时间的差，iSecondE，不需要举办巨大的时间换算 复制代码 代码如下: FunctionTimeDiff(sBegin，10，sEnd) DimiHourB，4，4)) iHourE=clng(Left(sEnd。

7，iMinuteB，iMinuteE，iSecondB。

iMiniSecondB DimiHourE，7，2)) iSecondB=clng(Mid(sBegin，dTimeDiff DimiHour，2)) iMiniSecondE=clng(Mid(sEnd，10，4，2)) iSecondE=clng(Mid(sEnd，2)) iMiniSecondB=clng(Mid(sBegin，dTimeE，2)) iMinuteE=clng(Mid(sEnd， ****************************** ||FunctionTimeDiff(sBegin，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分钟iSecondFormatNumber(iMiniSecond。

可以不消变动直接利用 ||作者：machinecat2001/10/26 ****************************** ****************************** 注：首先需要判定用户输入的sBegin与sEnd之间的巨细 可以通过DataDiff函数得到两者之间的时间差，iMinute，iMiniSecond iHourB=clng(Left(sBegin，。