Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.27
Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.27

z = (1 + Abs(t))/(1 + t + t Л 2) Л (1/3) Elself t < 0 Then _ z= 2 * Application.Ln(l + t Л 2) + _ (1 + Cos(t) Л 4)/ (2 + t) Else

z = (1 + t) Л (3/5) End If End Function

48 Программирование в среде Visual Basic for Applications

Пусть в ячейку А1 записано число 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+COS(А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 * продажа

Программирование в среде Visual Basic for Applications

Else

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

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

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


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta