当年
Dim d As Date = new Date(Date.Today.Year, 1, 1)t.Filter = "日期 >= #" & d & "# And 日期 < #" & d.AddYears(1) & "#"