函数模块代码:
''--------------------------------------------------------------
''计算时差函数
''
''例：TimeDiff([开始日期]，[结束日期]，[开始时间]，[结束时间])
''输出:字符串  格式 （hh:nn）
''--------------------------------------------------------------
Public Function TimeDiff(StarD As Date, EndD As Date, StarT As Date, EndT As Date) As String
 Dim myDateDiff As Date
 Dim myMinuteDiff As Date
 
 myDateDiff = Datediff("d", StarD, EndD)
 myMinuteDiff = Datediff("n", StarT, EndT)
 
 ''判断日期是否超过一天
 If myDateDiff > 0 Then
    myMinuteDiff = Datediff("n", StarT, EndT) + myDateDiff * 24 * 60
 Else
    myMinuteDiff = Datediff("n", StarT, EndT)
 End If
 
 TimeDiff = Format(Int(myMinuteDiff / 60), "00") & ":" & Format(myMinuteDiff Mod 60, "00") 
End Function