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

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

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

        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，防止万一

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当天的数据还是会被统计进来 造成重复计算

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

谢谢