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

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

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

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

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