Пусть в ячейку Al записано число 0.2, и требуется вычислить в ячейке В1 значение функции z при t - 0,2. Для этого достаточно в ячейку В1 ввести формулу =z (А1). Тот же результат можно получить, если ввести в ячейку В1 следующую формулу:

=ЕСЛИ(А1<=-1;(1+ABS(А1))/(1+А1+А1"2)"(1/3); ЕСЛИ(А1<0; 2*LN(1+А1"2)+(1+C0S(А1)"4)/(2+А1); (1+А1)(3/5)))

7. Функции пользователя, применяемые при расчете комиссионных

7.1. Функции пользователя с оператором условного перехода If-Then

Рассмотрим пример функции пользователя VBA ([2]), вычисляющей комиссионные, начисляемые по следующему правилу:

• Если продукции продано не меньше чем на 10 ООО руб., то комиссионные составляют 2 % от стоимости реализованной продукции.

• Если продукции продано меньше чем на 10 ООО руб., то комиссионные составляют 1 % от стоимости реализованной продукции.

• Если стаж работы в фирме не меньше 3 лет, то производится доплата в размере 0,5 % от стоимости реализованной продукции.

Первый вариант функции пользователя имеет вид:

Function Премия (стаж, продажа) If стаж >= 3 And

продажа >=10000 Then Премия=0.02 5*продажа If стаж < 3 And

продажа >=10000 Then Премия=0.02*продажа If стаж >= 3 And

продажа <10000 Then Премия=0.015*продажа If стаж < 3 And

продажа <10000 Then Премия=0.01*продажа End Function

Второй вариант функции пользователя имеет вид:

Function Премия (стаж As Integer,

продажа As Integer) as Integer Dim sAge, sSale As Integer

If стаж >= 3 Then sAge = 0.005 * продажа

If продажа >= 10000 Then sSale = 0.02 * продажа

Else

sSale = 0.01 * продажа End If

Премия = sAge + sSale End Function

Пусть в ячейку Al введена величина стажа работы в фирме, равная 15, а в ячейку В1- объем реализованной продук1ии, равный 50 ООО. Для того чтобы вычислить комиссионные в ячейке С1, достаточно в эту ячейку ввести формулу Премия (Al;Fil). Тот же результат получается при вводе в ячейку С1 следующей формулы:

=ЕСЛИ(И(А1>=3;В1>=10000);31*0.025, ЕСЛИ(И(А1<3;В1>=10000);В1*0.02; ЕСЛИ(И(А1>=3;В1<10 000);В1*0.015; ECЛИ (И (АКЗ; ВК1 0000) ;В1*0.01;))))

ИЛИ формулы

=ЕСЛИ(А1>=3;В1*0.0054 ЕСЛИ(В1>=10000;В1*0.02;В1*0.01)

7.2. Функции пользователя с оператором выбора Select Case

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

Оператор имеет следующий синтаксис:

Select Case ВЫРАЖЕНИЕ

Case УСЛ0ВИЕ ВЫБ0РА 1 БЛ0К 0ПЕРАТ0Р0В 1

Case УСЛОВИЕ ВЫБОРА п

БЛОК ОПЕРАТОРОВ п Case Else

БЛОК ОПЕРАТОРОВ ПО УМОЛЧАНИЮ

End Select

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