主题：[求助]如何把符合一个范围内的日期时间型转换成一个整数型

参考代码

Dim y As Integer = Date.Today.Year
Dim w As Integer = Date.Today.DayOfWeek '算出今天是星期几
Dim dt1 As Date = Date.Today.AddDays(-w) '获取本周的第一天
Dim dt2 As Date = Date.Today.AddDays(6 - w) '获取本周的最后一天
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"

Dim sum As Double = Tables("表A").Compute("sum(数量)", Filter)
msgbox(sum)