составить график выхода на работу при 176 часов в месяц при помощи компьютера

Dim s As Integer, d As Date, h As Integerd = CDate(InputBox("Введите дата начала графика", , "2016/01/02"))Do While s < 176h = Weekday(d, vbMonday)If h <> 7 Thens = s + 8Cells(i + 1, 2) = sCells(i + 1, 3) = dEnd IfCells(i + 1, 4) = hi = i + 1d = d + 1Loop