💸 Как сделать бизнес проще, а карман толще?

Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое раписание, но и напоминать клиентам о визитах тоже. Проблема в том, что средняя цена по рынку за такой сервис — 800 руб/мес или почти 15 000 руб за год. И это минимальный функционал. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
⚡️ Для новых пользователей первый месяц бесплатно. А далее 290 руб/мес, это в 3 раза дешевле аналогов. За эту цену доступен весь функционал: напоминание о визитах, чаевые, предоплаты, общение с клиентами, переносы записей и так далее.
✅ Уйма гибких настроек, которые помогут вам зарабатывать больше и забыть про чувство «что-то мне нужно было сделать».
Сомневаетесь? нажмите на текст, запустите чат-бота и убедитесь во всем сами!

Оператор выбора Select Case

Оператор выбора Select Case удобно использовать, когда в зависимости от значения некоторого выражения, имеющего конечное множество допустимых значений, необходимо выполнить разные действия.

Select Case Тестируемое выражение

Case Условие выбора 1

Блок операторов 1

Case Условие выбора 2

Блок операторов 2

……………

Case Условие выбора n

Блок операторов n

Case Else

Блок операторов

End Select

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

Задача. Вычислить размер комиссионных в зависимости от объема продаж. Процент комиссионных приведен в табл. 17.

Таблица 17

Начисление комиссионных

Программный код

Option Explicit

Sub PR6()

Dim opr As Double, prem As Double

opr = Val(InputBox(" Введите объем продаж"))

Select Case opr

Case 0 To 9999

prem = 0.08 * opr

Case 10000 To 39999

prem = 0.1 * opr

Case Is > = 40000

prem = 0.14 * opr

End Select

MsgBox (" Комиссионные=" & prem)

End Sub

Слово Is, используемое в программе, является ключевым словом VBA, обозначающим тестируемое выражение в операторе Case.

В операторе Case допустимо использовать составные условия, подобно тому, как это делается в условном операторе.

Пример

Case 5, 6, 9 to 10, 13, 14, Is> =16

В этом операторе проверяется, принадлежит ли тестируемое выражение отрезку от 9 до 10, или равняется одному из значений: 5, 6, 13, 14, или оно не меньше 16.

Оператор цикла с предусловием While – Wend

Оператор цикла While – Wend используется для организации цикла с неизвестным заранее числом повторений тела цикла. Общий вид цикла While – Wend выглядит следующим образом:

While Условие

Блок операторов

Wend

Цикл While – Wend обеспечивает многократное выполнение блока операторов, пока условие принимает значение True (истина).

Задача 1. Вычислить и вывести значения функции Y при X, изменяющимся от –10 до 10 с шагом 2.

.

Программный код

Option Explicit

Sub PR9()

Dim X As Integer, Y As Double

X = –10

While X < = 10

If X < > 2 Then

Y = 1 / (X – 2) + X

MsgBox (" Y=" & Y)

Else

MsgBox (" Функция не определена")

End If

X = X + 2

Wend

End Sub

Задача 2. Задан натуральный ряд чисел. Вычислить сумму четных чисел данного ряда.

Программный код

Option Explicit

Sub PR10()

Dim N As Integer, I As Integer, S As Double

N = Val(InputBox(" Введите N"))

I = 2

S = 0

While I < = N

S = S + I

I = I + 2

Wend

MsgBox (S)

End Sub

Задача 3. Вкладчик положил на счет 1000 рублей. Через сколько дней вклад достигнет 20000 рублей, если начисляемый процент 0, 6 % в день.

Программный код

Option Explicit

Sub PR11()

Dim V As Double, Pr As Double, Kol As Integer

V = Val(InputBox(" Введите начальный взнос"))

Kol = 0

While V < = 20000

Pr = V * 0.6 / 100

V = V + Pr

Kol = Kol + 1

Wend

MsgBox (" 20000 руб. вклад достигнет за " & Kol & " дней")