Начисление процентов в зависимости от суммы
Процесс начисления комиссионных процентов – один из наиболее популярных процессов в экономической и финансовой деятельности, поэтому любой экономист, менеджер и финансовый работник должен уметь быстро выполнять эту операцию. Функция, которая рассматривается в данном подразделе, поможет решить эту задачу.
Допустим, что организация принимает вклады на следующих условиях: на вклады размером до 4999 руб. начисляется 9 %, на вклады размером от 5000 до 9999 руб. – 11 %, а на вклады размером свыше 10 000 руб. – 15 % (все данные условны). Чтобы быстро рассчитать проценты по вкладам в данном случае, можно воспользоваться функцией dhCalculatePercent, код которой приведен в листинге 2.52.
Листинг 2.52. Функция dhCalculatePercent (вариант 1)
Function dhCalculatePercent(lngSum As Long) As Double
' Процентные ставки (декларация констант)
Const dblRate1 As Double = 0.09
Const dblRate2 As Double = 0.11
Const dblRate3 As Double = 0.15
' Граничные суммы вкладов (декларация констант)
Const intSum1 As Long = 5000
Const intSum2 As Long = 10000
' Возвращаем сумму, умноженную на соответствующую ставку
If lngSum < intSum1 Then
dhCalculatePercent = lngSum * dblRate1
ElseIf lngSum < intSum2 Then
dhCalculatePercent = lngSum * dblRate2
Else
dhCalculatePercent = lngSum * dblRate3
End If
End Function
Эту же функцию можно записать и в таком виде (листинг 2.53).
Листинг 2.53. Функция dhCalculatePercent (вариант 2)
Function dhCalculatePercent(lngSum As Long) As Double
' Процентные ставки (декларация констант)
Const dblRate1 As Double = 0.09
Const dblRate2 As Double = 0.11
Const dblRate3 As Double = 0.15
' Граничные суммы вкладов (декларация констант)
Const intSum1 As Long = 5000
Const intSum2 As Long = 10000
' Возвращаем сумму, умноженную на соответствующую ставку
Select Case lngSum
Case Is < intSum1
dhCalculatePercent = lngSum * dblRate1
Case Is < intSum2
dhCalculatePercent = lngSum * dblRate2
Case Else
dhCalculatePercent = lngSum * dblRate3
End Select
End Function
После выбора функции (в окне Мастер функций данная функция по умолчанию будет помещена в категорию Определенные пользователем, как и другие пользовательские функции) необходимо указать ячейку, на основании которой следует рассчитать сумму процентов. Результат отобразится в ячейке, в которой был установлен курсор.
С помощью данной функции можно начислять не только проценты по вкладам, но и рассчитывать, например, заработок торговых агентов (если он рассчитывается в процентах от поступления денежных средств), а также выполнять иные подобные расчеты.