Пример программы
Справочная информация
При выполнении финансово-экономических расчетов часто приходится рассчитывать одни и те же финансовые показатели. Средством автоматизации выполняемых расчетов могут служить финансовые функции.
Различают стандартные и пользовательские финансовые функции.
Стандартные или встроенные финансовые функции уже присутствуют в составе приложения как готовые подпрограммы. Их основной перечень приведен в соответствующей литературе, справочной системе VBA и в прилож. 14.
Пользовательские финансовые функции создаются в дополнение к существующим стандартным функциям. Обращение к ним осуществляется таким же образом.
При разработке пользовательских функций следует предусмотреть логическую проверку корректности типов данных и значений входных параметров.
Требуется создать пользовательскую функцию расчета процентной ставки для полностью инвестированных ценных бумаг. Расчет выполняется по следующей формуле ( %):
где: погашение – объем инвестиции в ценные бумаги, руб;
инвестиция – объем средств, которые должны быть получены на дату вступления ценных бумаг, руб;
B – число дней в рассматриваемом году;
дата_вступ — дата погашения ценных бумаг. Эта дата определяет истечение срока действия ценных бумаг;
дата_согл — это дата соглашения для ценных бумаг; (дата_согл < дата_вступ).
‘Пример 4
Function ИНОРМА(инвестиция, погашение As Currency, _
дата_согл, дата_вступ As Date) As Single
If IsNumeric(инвестиция) = False Or IsNumeric(погашение) = False _
Or IsDate(дата_вступ) = False Or IsDate(дата_согл) = False Then
MsgBox "Недопустимые типы исходных данных", _
vbCritical + vbOKOnly, "Внимание!"
Exit Function
End If
If погашение < 0 Or инвестиция < 0 _
Or дата_согл >= дата_вступ Then
MsgBox "Недопустимые значения исходных данных", _
vbCritical + vbOKOnly, "Внимание!"
Exit Function
End If
ИНОРМА = Format((погашение - инвестиция) / инвестиция) _
* IIf(Year(дата_согл) Mod 4 = 0, 366, 365) / (дата_вступ - _
дата_согл), "Percent")
End Function