主题：[求助]周期增加

参考代码

Dim y As Integer = 2018
Dim m As Integer = 8
Dim wd As Integer = 3 '星期三
Dim d As Date = new Date(y,m,1)
d = d.AddMonths(1).AddDays(-1)
Do While True
    If d.DayOfWeek = wd Then
        msgbox(d)
        Exit Do
    End If
    d = d.AddDays(-1)
Loop

Dim dt As DataTable = DataTables("派工")
Dim r As Row = Tables("客户资料").current
Dim sd As Date = r("开始日期")
Dim ed As Date = r("结束日期")
Dim wd As Integer =r("周")

Do While sd <= ed
    Dim y As Integer = sd.year
    Dim m As Integer = sd.month
    Dim d As Date = new Date(y,m,1)
    d = d.AddMonths(1).AddDays(-1)
    Do While True
        If d >= sd AndAlso d <= ed AndAlso d.DayOfWeek = wd Then
            Dim ndr = dt.addnew
            ndr("截止日期") = d
            ndr("编号") =r.DataRow("编号")
            sd = (new Date(y,m,1)).addmonths(1)
            Exit Do           
        End If
        d = d.AddDays(-1)
    Loop   
Loop