Office中国论坛/Access中国论坛

标题: access日期和小时的加减 [打印本页]

作者: singhang 时间: 2013-4-11 15:38
标题: access日期和小时的加减
在access中利用NOW（）得到的系统时间，如何实现自动减去小时数，得到一个新的日期时间。

比如系统时间是2013/4/11 02:10:40，自动减去4小时，得到新的时间是2013/4/10 22:10:40.

目前事件过程代码是：

Private Sub Line_AfterUpdate()
Me.Line_Date.Value = Now()
Dim a As String
If IsNull(Me.Text12) Then a = 0 Else a = Me.Text12
If (a + Me.Line_Out) = DLookup("[Order Qty]", "Order Schedule", "[Order]='" & Me.Order & "'") Then Me.AllowAdditions = False
End Sub

作者: singhang 时间: 2013-4-11 15:52
自己顶顶

作者: 叶海峰 时间: 2013-4-11 16:24
dateadd("h",-4,now())

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