Office中国论坛/Access中国论坛

标题: 自定义时差函数(加入跨天计算功能) [打印本页]

作者: tanhong 时间: 2007-4-4 02:18
标题: 自定义时差函数(加入跨天计算功能)
通过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

[attach]27987[/attach]

作者: super75 时间: 2007-4-4 04:23
DDD

作者: goto2008 时间: 2007-5-19 05:20
很好的例子，嘿嘿，学习下。

作者: chaojianan 时间: 2009-4-20 16:15
谢谢tanhong。

作者: yanwei82123300 时间: 2009-6-11 15:56
很好的例子，嘿嘿，学习下。

作者: jackysu78 时间: 2009-6-14 01:31
谢谢分享

作者: 13555609005 时间: 2009-6-19 23:12
很好的例子

作者: liaoqiang234 时间: 2010-2-5 21:17
thanks

作者: wdq 时间: 2010-2-7 14:26

作者: yanwei82123300 时间: 2010-2-9 12:27
很好的例子，嘿嘿，学习下。

作者: xie62 时间: 2010-6-20 08:09
嘿嘿，学习下。

作者: weikitwong 时间: 2010-7-8 00:22
看看,正需要

作者: gujin162 时间: 2011-1-21 13:14
自定义时差函数(加入跨天计算功能)

作者: lwb_hao 时间: 2011-1-28 12:35
好东东

作者: ywj133 时间: 2011-3-31 01:38
回复 tanhong 的帖子

作者: Access代码爱好者 时间: 2013-1-17 16:21
学习

作者: can 时间: 2013-2-25 11:52
谢谢

作者: sfz001 时间: 2013-3-17 16:51
很好的例子

作者: zhang9874 时间: 2013-3-30 09:33
看看是什么东东

作者: leonshi 时间: 2014-1-20 20:03
学习

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)