以文本方式查看主题

-  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=96134)
--  作者：feixianzhi
--  发布时间：2017/2/14 8:15:00
--  按时间段筛选数据问题
一个表里有多年度数据，我想统计所有年度第一季度数据，这个时间段的代码怎么写，请各位老师帮忙。
--  作者：feixianzhi
--  发布时间：2017/2/14 8:41:00
--  
请有点色老师帮忙呀。
--  作者：有点蓝
--  发布时间：2017/2/14 8:58:00
--  
使用后台统计，统计的时候设置筛选条件，类似

b.Filter = "Month([日期]) in (1,2,3)"
--  作者：有点色
--  发布时间：2017/2/14 9:35:00
--  
以下是引用feixianzhi在2017/2/14 8:41:00的发言：
请有点色老师帮忙呀。

 

例如筛选2011年2季度的订单：

 

Dim y As Integer = 2011 \'指定年份
Dim q As Integer = 2 \'指定季度
Dim dt1 As New Date(y, 3 * (q - 1) + 1, 1) \'获取该季度的第一天
Dim dt2 As Date = dt1.AddMonths(3)
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 < #" & dt2 & "#" 
Tables("订单").Filter = Filter

 

 

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