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
如果日期是SQL SERVER 2013-12-31 08:20:25 这样格式的数据,以上的代码无法统计最后一天的数据,这个最后一天和第一天改如何修改