Пример цикла Do Until

Эта шуточная процедура предлагает вводить вам дату в формате ХХ.ХХ.ХХ (например 18.03.03) до тех пор, пока вы не введете дату какого-нибудь воскресенья.

Обратите внимание на использование функции WeekDay.

 

Sub Stop_AtEvenNums()

Const evTitle = "В ожидании воскресенья..."

Dim EventFlag As Boolean ' Признак выхода —Переменная для выхода из цикла

Dim Num ' Переменная для даты, описана как тип Variant

EventFlag = False ' Признак цикла пока равен ЛОЖЬ

Цикл Do Until…Loop

Do Until EventFlag = True

Num = InputBox("Введите дату:", evTitle)

If Weekday(Num, vbMonday) = 7 Then

MsgBox "Вы ввели дату воскресенья!!!", , "Запомните эту дату! Ура!"

EventFlag = True

Else

MsgBox " Жаль, но отдохнуть не удастся!", , "Не надо печалиться"

End If

Loop

MsgBox "Хорошо повеселиться!!!", , "Мы рады за Вас!!!"

End Sub

 

þ	8. Введите пример. Выполните его. 9. Добавьте в него еще одну проверку для субботы, с комментарием типа «Ура, это уже завтра!!!» и также выходом из цикла. 10. Найдите в справке описание функции WeekDay и законспектируйте в тетрадь ее аргументы.