主题：求助：怎么实现本月十五到上月十五的数据查询呢？

       求助：怎么实现本月十五到上月十五的数据查询呢？

要求实现本月十五到上月十五的数据查询，遇见一月份的时候还需要注意年份的变化。

下述代码已经实现查找本月数据

        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 & "'"

下述代码已经实现查找上月对应今日号数的数据

Dim d As Date = Date.Today.AddDays(-30)
Dim d1 As Date = Date.Today

 Filter = "派工时间 >= '" & d & "' And 派工时间 <= '" & d1 & "'"

Dim d1 as date = new Date(date.today.year,Date.today.Month,15)  '本月15

Dim d2 as date = d1.Addmonths(-1) '上个月对应日期

d2= new Date(d2.year,d2.month,15) '精确到上月15，防止万一

继续深入学习

假设1月15日录入了一个数据

在2月16日统计的时候 会统计1月15到2月15的数据

在3月15的时候进行统计 会计算2月15到3月15的数据

现在的问题是2月15已经记录并统计过一次了 在3月的时候进行统计 2月15当天的数据还是会被统计进来 造成重复计算

有没有好的操作办法避开这个重复统计呢？

谢谢