13.4. Контрольные вопросы
Для каких целей применяется каждая из функций обработки строк:
Asc(), Chr(), Lcase(), Ucase(), Left(), Rigt(), Mid(), Len(), Ltrim(), Rtrim(), Trim(), Spaсe(), String(), StrComp(), StrReverse(), InStr(), InStrRev(), Replace()?
Объясните смысл использованного в примере программы выражения
v = UCase(Left(p, 1)) & Right(p, Len(p) - 1)
Объясните назначение параметров функции InputBox() и процедуры MsgBox, использованных в примере 3.
Каково отличие функции и процедуры?
*В профессиональном программировании использование оператора <Goto Метка> считается некорректным. Предложите вариант программы без использования перехода на метку.
14. Создание финансовых функций
Цель работы – изучение основ создания пользовательских финансовых функций средствами языка программирования VBA.
После выполнения работы студент должен знать основы создания финансовых функций, уметь создавать и отлаживать программы обработки финансово-экономической информации средствами VBA.
14.1. Справочная информация
При выполнении финансово-экономических расчетов часто приходится рассчитывать одни и те же финансовые показатели. Средством автоматизации выполняемых расчетов могут служить финансовые функции.
Различают стандартные и пользовательские финансовые функции.
Стандартные или встроенные финансовые функции уже присутствуют в составе приложения как готовые подпрограммы. Их основной перечень приведен в соответствующей литературе, справочной системе VBA и в прилож. 14.
Пользовательские финансовые функции создаются в дополнение к существующим стандартным функциям. Обращение к ним осуществляется таким же образом.
При разработке пользовательских функций следует предусмотреть логическую проверку корректности типов данных и значений входных параметров.
14.2. Пример программы
Требуется создать пользовательскую функцию расчета процентной ставки для полностью инвестированных ценных бумаг. Расчет выполняется по следующей формуле ( %):
где: погашение – объем инвестиции в ценные бумаги, руб;
инвестиция – объем средств, которые должны быть получены на дату вступления ценных бумаг, руб;
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