关于日期比较问题
如何得当前时间前一分钟,在数据库存的时间 --------------------编程问答-------------------- Dim a As Datea = DateAdd("n", -1, Now()) --------------------编程问答-------------------- 如果你只是要获得时间的话,可以试试这样:
--------------------编程问答-------------------- select getdate()
Dim n As Long
n = Timer - 60
Debug.Print (n \ 3600) & ":" & (n Mod 3600) \ 60 & ":" & (n Mod 60)
'Debug.Print Format((n \ 3600) & ":" & (n Mod 3600) \ 60 & ":" & (n Mod 60), "hh:nn:ss")
select dateadd(n,-1,getdate()) --------------------编程问答-------------------- DateAdd ok --------------------编程问答-------------------- 不用API的话 在VB6:
Dim dtNow as Date
dtNow = Now - TimeSerial(0, 1, 0)
Debug.Print CDate(dtNow)
如果要输出的话 用CDate()函数转成字符串. --------------------编程问答-------------------- Dim a As Date
a = DateAdd("n", -1, Now())
补充:VB , API