自定义时差函数(加入跨天计算功能)

tanhong

通过datediff()函数综合运用,加入跨天计算时差,得出精确到分钟的时间差



函数模块代码:

''--------------------------------------------------------------

''计算时差函数

''

''例：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

游客，如果您要查看本帖隐藏内容请回复

super75

DDD

goto2008

很好的例子，嘿嘿，学习下。

chaojianan

谢谢tanhong。

yanwei82123300

很好的例子，嘿嘿，学习下。

jackysu78

谢谢分享

13555609005

很好的例子

liaoqiang234

thanks

wdq

yanwei82123300

很好的例子，嘿嘿，学习下。