以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  想要得到日期列与当前日期差的分部分,代码应该怎么改?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=133911)

--  作者:fengwenliuyan
--  发布时间:2019/4/23 14:57:00
--  想要得到日期列与当前日期差的分部分,代码应该怎么改?
想要得到日期列与当前日期差的分部分,代码应该怎么改:
DataTables("基础信息").ReplaceFor("结单", True, "日期 <= #" & Date.Today.AddDays(-0.02) & "#")
--  作者:fengwenliuyan
--  发布时间:2019/4/23 15:39:00
--  
求帮助


--  作者:有点甜
--  发布时间:2019/4/23 16:21:00
--  

sqlreplacefor可以这样做,replacefor不行

 

http://www.foxtable.com/webhelp/scr/2898.htm

 

access和sqlserver的语法也不同

 

http://www.foxtable.com/webhelp/scr/0692.htm

http://www.foxtable.com/webhelp/scr/1827.htm

 

 


--  作者:fengwenliuyan
--  发布时间:2019/4/23 16:26:00
--  回复:(有点甜)sqlreplacefor可以这样做,replacefo...
使用ReplaceFor方法做,为什么不行啊?上次是取天数,这次是取分钟数?
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=132309&page=2
--  作者:fengwenliuyan
--  发布时间:2019/4/23 16:40:00
--  回复:(有点甜)sqlreplacefor可以这样做,replacefo...
dim d1 as date = e.DataRow("订单日期")
dim d2 as date = Date.Now
Dim t As TimeSpan = d2 - d1
DataTables("基础信息").ReplaceFor("结单", True, "订单日期 <= #" & t.Minutes.AddDays(2) & "#")

结果提示:

图片点击可在新窗口打开查看此主题相关图片如下:时间.png
图片点击可在新窗口打开查看


--  作者:有点甜
--  发布时间:2019/4/23 19:23:00
--  

参考

 

Dim d1 As Date = e.DataRow("订单日期")
Dim d2 As Date = Date.Now
DataTables("基础信息").ReplaceFor("结单", True, "订单日期 <= #" & d2.AddMinutes(2) & "#")