以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]筛选上个月数据  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=129721)
--  作者：湛江智
--  发布时间：2019/1/4 16:15:00
--  [求助]筛选上个月数据
 如果要筛选的时段是 上个月、下个月，下面代码怎么修改呢？

Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) \'获取本月的最后一天
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
Tables("订单").Filter = Filter
--  作者：有点甜
--  发布时间：2019/1/4 16:31:00
--  

Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim dt1 As New Date(y, m, 1)
Dim dt2 As Date = dt1.AddMonths(-1)
Dim Filter As String
Filter = "日期 >= #" & dt2 & "# And 日期 < #" & dt1 & "#"
Tables("订单").Filter = Filter

 

-----------------

 

Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim dt1 As New Date(y, m, 1)
Dim dt2 As Date = dt1.AddMonths(1)

dt1 = dt1.addmonths(2)
Dim Filter As String
Filter = "日期 >= #" & dt2 & "# And 日期 < #" & dt1 & "#"
Tables("订单").Filter = Filter

[此贴子已经被作者于2019/1/4 16:32:16编辑过]
--  作者：湛江智
--  发布时间：2019/1/7 17:03:00
--  回复：（有点甜）Dim y As Integer = Date.Today.Year...
 如果只筛选 前个月，上楼代码怎么修改呢？

也就是11月的时段，这样有问题嘛？

Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim dt1 As New Date(y, m-1, 1)
Dim dt2 As Date = dt1.AddMonths(-2)
Dim Filter As String
Filter = "日期 >= #" & dt2 & "# And 日期 < #" & dt1 & "#"
Tables("订单").Filter = Filter
[此贴子已经被作者于2019/1/7 17:05:23编辑过]
--  作者：有点甜
--  发布时间：2019/1/7 17:05:00
--  
Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim dt1 As New Date(y, m, 1)
Dim dt2 As Date = dt1.AddMonths(-2)
dt1 = dt1.AddMonths(-1)
Dim Filter As String
Filter = "日期 >= #" & dt2 & "# And 日期 < #" & dt1 & "#"
msgbox(filter)
--  作者：湛江智
--  发布时间：2019/1/9 12:11:00
--  回复：（有点甜）Dim y As Integer = Date.Today.Year...
如果再增加一个条件：实际完成日期，也是这个月之内的也筛选出来。


上面代码怎么修改呢？
Filter = "日期 >= #" & dt2 & "# And 日期 < #" & dt1 & "#"


--  作者：有点甜
--  发布时间：2019/1/9 12:17:00
--  
Filter = "日期 >= #" & dt2 & "# And 日期 < #" & dt1 & "# or 实际完成日期 >= #" & dt2 & "# And 实际完成日期 < #" & dt1 & "#"