以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]时间如何来比较？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=49633)
--  作者：737182811
--  发布时间：2014/4/21 18:27:00
--  [求助]时间如何来比较？
以下代码用的的是狐爸帮助中的例子，有一个不同，就是创建时间的格式是datetime.
那我要筛选出当日的数据，如何修改呢？

        Case 3
            Dim y As Integer = value(0)
            Dim m As Integer = value(1)
            Dim d As Integer = value(2)
            d1 = New Date(y, m, d) \'取得该日
            Filter = "创建时间 = #" & d1 & "# And 客户名称 = \'" & Value(3) & "\'"
--  作者：有点甜
--  发布时间：2014/4/21 18:46:00
--  

 这样写

 

Filter = "创建时间 >= #" & Date.Today & "# And 创建时间 < #" & Date.Today.Add(1) & "# And 客户名称 = \'" & Value(3) & "\'"
--  作者：737182811
--  发布时间：2014/4/21 22:45:00
--  
谢甜版.
            Filter = "创建时间 >= #" & d1 & "# And 创建时间 < #" & d1.adddays(1) & "#"