ACCESS数据库
Access不足一个小时也按一个小时计算
2013-07-13 15:22:59
生活中很多事情都是按小时计算的。不足一小时也按一小时收费。比如体育馆，
下面的函数计算出如果小于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