Счетный цикл

Операторы организации циклической обработки

End Function

End Select

Case Else

Case 2

Case 4,6, 9,11

Select Case Месяц

Дней_в_месяце =30

if Int (Год / 4)*4 <> ГодThen Дней_в_месяце =28 Else Дней_в_месяце =29

Дней_в_месяце =31

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

В теории программирования выделяют несколько основных видов циклов:

• цикл-пока (рис. 3, а); •
• цикл-до (рис. 3, б);
• счетный цикл (рис. 3, в)

Рис. 3. Структура циклов:

а - цикл-пока; б - цикл-до; в - счетный цикл

В языке VBA к таким циклам относится Цикл For... Next, который, выполняет блок операторов заданное количество раз.

Синтаксис этого оператора цикла следующий:

For переменная цикла = нач значение То кон значение Step шаг

операторы

Next переменная цикла

В цикле For...Next переменная цикла этообычная переменная.

Во время первого выполнения (прохода) цикла переменная имеет начальное значение нач_значение, и выполняются все операторы цикла (вплоть до ключевого слова Next).

Во время второго прохода цикла к значению переменная прибавляется значение шаг и результат сравнивается со значением кон значение.

Если переменная больше кон значение, цикл прерывается, если нет, операторы цикла выполняются снова.

Шаг цикла можно опустить, в этом случае шаг считается равным 1. Если значение шаг отрицательно, то счет в цикле идет в обратную сторону до тех пор, пока переменная не станет меньше, чем кон_значение.

Переменная цикла должна иметь целый или вещественный тип. Соответственно начальное и конечное значения должны иметь целый или вещественный тип.

Упражнение. Составить программу процедуры для определения количества рабочих дней месяца.

Это можно сделать проверив каждый день месяца с помощью стандартной функции VBA – WeekDay, которая по календарной дате (день,месяц,год) выдает номер дня недели. Будем считать нерабочими днями субботу и воскресенье (6,7).

Процедура должна включать многократное повторение проверки номера каждого календарного дня месяца, т.е. необходимо использовать оператор счетного цикла.

Каждый месяц начинается с числа 1 (начало цикла), для определения значения количества дней используем процедуру предыдущего примера (ее результат задаст конец цикла).

Чтобы использовать значение, возвращаемое функцией, надо поместить ее имя справа от знака равенства.

Функция WeekDay имеет аргументом переменную специального типа ДатаВремя (календарная дата), которая может быть вычислена специальной функцией Excel – DateValue по номеру года, месяца и дня.

Function Раб_дней_месяце(Месяц, Год)

Dim ДеньКалендаря As Date ‘ вспомогательная переменная для календарной даты

Раб_дней_месяце = 0 ‘ вначале не найдено ни одного раб. дня

Кол_дней = Дней_в_меяце(Месяц, Год)

For ден ь = 1 То Кол_дней

ДеньКалендаря = DateSerial (Год, Месяц, день ) Формируем новую дату

ДеньНедели = WeekDay(ДеньКалендаря, 1 )

Вставьте здесь оператор, который в зависимости от значения переменной ДеньНедели, должен прибавить к переменной Раб_дней_месяце 1, если ДеньНедел и является рабочим, иначе ничего прибавлять не надо.

Дата добавления: 2015-05-10