会员登录 - 用户注册 - 网站地图 Office中国(office-cn.net),专业Office论坛
当前位置:主页 > 技巧 > Access技巧 > 数据库系统 > 正文

Access不足一个小时也按一个小时计算

时间:2013-07-13 15:23 来源:office中国 作者:access学习交流 阅读:
生活中很多事情都是按小时计算的。不足一小时也按一小时收费。比如体育馆,
下面的函数计算出如果小于1个小时的话,会自动加1

dim 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)

顶一下
(3)
100%
踩一下
(0)
0%
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价: