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

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

Задать свой вопрос
1 ответ
Dim s As Integer, d As Date, h As Integer
d = CDate(InputBox("Введите дата начала графика", , "2016/01/02"))
Do While s lt; 176
h = Weekday(d, vbMonday)
If h lt;gt; 7 Then
s = s + 8
Cells(i + 1, 2) = s
Cells(i + 1, 3) = d
End If
Cells(i + 1, 4) = h
i = i + 1
d = d + 1
Loop
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт