主题：日期设置

 下边这段代码中的日期，我想固定提取上个月的第一天到最后一天的数据（每次都是，不想如下边，一个月一个月的设置），如何设置

 

For Each dr As DataRow In DataTables("考勤表").Select("岗位代码 = '" & Ary(0) & "' and 岗位 = '" & Ary(1) & "'and 姓名 = '" & Ary(2) & "' and 日期 >= #7/1/2016#  And 日期 <= #7/31/2016# ")

       Dim d As Date = dr("日期")

        Dim day As String = CStr(d.Day)

        dr1(day) = dr("上午")

        dr2(day) = dr("下午")

    Next

Dim pd As Date = new Date(Date.Today.Year, Date.Today.Month, 1)

For Each dr As DataRow In DataTables("考勤表").Select("岗位代码 = '" & Ary(0) & "' and 岗位 = '" & Ary(1) & "'and 姓名 = '" & Ary(2) & "' and 日期 >= #" & pd.AddMonths(-1) & "#  And 日期 < #" & pd & "# ")