主题：时间计划

Dim kssj As Date = "2018-08-29"
Dim mtks As Date = "08:00"
Dim mtjs As Date = "17:30"
Dim d As Date = new Date(kssj.year, kssj.month, kssj.day, mtks.hour, mtks.Minute, 0)
Dim sp1 As TimeSpan = mtks.AddDays(1)-mtjs
Dim sp2 As TimeSpan = mtjs-mtks
Dim t As Table = Tables("表A")
For Each r As Row In t.Rows
    r("计划生产时间") = d
    Dim sj As Double = r("额定任务时间")
    Do While sj > 0
        d = d.AddSeconds(60*30)
        If format(d, "HHmm") > Format(mtjs, "HHmm") Then
            d = d.AddSeconds(sp1.TotalSeconds)
        End If
        sj = sj - 60*30
    Loop
    r("计划完成时间") = d
Next