不足一小时按一小时计算

access学习交流 · 发表于 2013-6-15 15:39:57

我们工作中，常常会遇到不足一小时按一小时算事情。分享一个示例源码，

im timesum As Long
If (DateDiff("n", Me.Timestart, Me.timefinish) Mod 60) <> 0 Then
Me.tsum2 = Int(DateDiff("n", Me.Timestart, Me.timefinish) / 60) + 1
ElseIf (DateDiff("n", Me.Timestart, Me.timefinish) Mod 60) = 0 Then

Me.tsum2 = Int(DateDiff("n", Me.Timestart, Me.timefinish) / 60)

End If

admin · 发表于 2013-6-15 20:03:07

谢谢分享!

tmtony · 发表于 2013-6-17 08:40:43

谢谢分享

yanwei82123300 · 发表于 2013-6-17 15:39:31

access学习交流老师给个里面的控件吧！我没办法打开（DTPicker控件名）谢谢

access学习交流 · 发表于 2013-6-19 09:22:58

yanwei82123300 发表于 2013-6-17 15:39
access学习交流老师给个里面的控件吧！我没办法打开（DTPicker控件名）谢谢

是的，用了一个日历的控件

yanwei82123300 · 发表于 2013-6-19 09:45:39

access学习交流发表于 2013-6-19 09:22
是的，用了一个日历的控件

access学习交流老师请提供一下此日历控件，谢谢

access学习交流 · 发表于 2013-6-19 11:01:47

yanwei82123300 发表于 2013-6-19 09:45
access学习交流老师请提供一下此日历控件，谢谢

没记错的是这个。

yanwei82123300 · 发表于 2013-6-19 14:22:42

谢谢分享!

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[模块/函数] 不足一小时按一小时计算

本帖子中包含更多资源

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)