Пример программы. Справочная информация

Справочная информация

При выполнении финансово-экономических расчетов часто приходится рассчитывать одни и те же финансовые показатели. Средством автоматизации выполняемых расчетов могут служить финансовые функции.

Различают стандартные и пользовательские финансовые функции.

Стандартные или встроенные финансовые функции уже присутствуют в составе приложения как готовые подпрограммы. Их основной перечень приведен в соответствующей литературе, справочной системе 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

Дата добавления: 2014-11-29