http://www.foxtable.com/help/topics/2706.htm
加载本季度数据
例如加载本季度的订单:
Dim y As Integer = Date.Today.Year
Dim q As Integer = (Date.Today.Month - 1) \
3 + 1
'计算现在是第几个季度
Dim dt1 As New
Date(y, 3 * (q - 1) + 1, 1) '获取本季度的第一天
Dim dt2 As New
Date(y, 3 * q, Date.DaysInMonth(2011,3 * q)) '获取本季度的最后一天 ,注:这里应该用前面的变量“ y ”,虽然结果,不会出错,但理论上应该用本年的年份,而不是指定的年份。
Dim Filter As String
Filter = "日期 >= #"
&
dt1
&
"# And 日期 <= #"
&
dt2
&
"#"
DataTables("订单").LoadFilter = Filter
DataTables("订单").Load()
注意第二行代码,用的是整除运算符(\),而不是通常的除法运算符(/),整除运算符会直接对结果取整。