Пример программы. Требуется создать пользовательскую функцию расчета процентной ставки для полностью инвестированных ценных бумаг

Требуется создать пользовательскую функцию расчета процентной ставки для полностью инвестированных ценных бумаг. Расчет выполняется по следующей формуле (%):

где: погашение – объем инвестиции в ценные бумаги, руб;

инвестиция – объем средств, которые должны быть получены на дату вступления ценных бумаг, руб;

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