Самоучитель VBA


         

с учетом скидки для постоянных


End If

End If

End If

'

' Корректировка стоимости с учетом скидки для постоянных клиентов

If Скидка = 0 Then

Стоимость = СтоимостьБезСкидки Else

Стоимость = СтоимостьБезСкидки * 0.95

End If

End Function

Итак, функция пользователя стоимость создана. Она включена в категорию функций, определенных пользователем, мастера функций. Благодаря тому что в VBA допустимо применение русскоязычных имен, текст написанной программы ясен и прозрачен для понимания. Кроме того, это обеспечивает и простоту использования диалогового окна мастера функций для данной функции (рис. В.5). Названия всех параметров функции стоимость в окне мастера функций выводятся также на русском языке. Доступная для понимания структура диалогового окна позволяет использовать функцию стоимость любому пользователю, даже не владеющему VBA. Для ее применения достаточно знать только имя этой функции.



Рис. В.5. Диалоговое окно для заполнения параметров функции Стоимость


Содержание  Назад