access日期和小时的加减

singhang

在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

自己顶顶

叶海峰

dateadd("h",-4,now())