14.3. Задание
Выполните постановку задачи, опишите экономико-математическую модель и метод решения, составьте алгоритм решения и представьте их преподавателю.
В соответствии с вариантом задания (см. табл.5) создайте пользовательскую функцию вычисления значения финансового выражения, позволяющую выполнять логическую проверку параметров на соответствие типов данных, на критические и недопустимые значения (см. Пример 4).
Откомпилируйте программу (меню DebugCompile) и в случае необходимости устраните синтаксические ошибки.
Из окна Immediate Window (редактор VBA меню View Immediate Window) обратитесь к функции (например, командой ?ИНОРМА(2500,2590,#01.01.14#,#12.29.14#)) и проверьте ее работоспособность, в том числе с критическими и недопустимыми значениями параметров и несоответствующими типами данных.
Замечание: при обращении к функции из окна Immediate Window для корректной ее работы параметры типа дата следует вводить в американском формате: #ММ/ДД/ГГ#.
Создайте пользовательскую форму для обращения к функции, для чего:
Запустите конструктор форм и создайте форму, аналогичную представленной в прилож. 15;
При задании свойств полей не забудьте учесть форматы входных и выходных данных;
Закрепите за кнопками процедуры, аналогичные представленным ниже:
Private Sub Кнопка17_Click() ‘Кнопка «Очистить»
With Forms![Для_финансовой_функции]
![Поле1].Value = Empty
![Поле5].Value = Empty
![Поле7].Value = Empty
![Поле9].Value = Empty
![Поле15].Value = Empty
'Фокус на поле1
DoCmd.GoToControl "Поле1"
End With
End Sub
Private Sub Кнопка20_Click() ‘Кнопка «Рассчитать»
With Forms![Для_финансовой_функции]
![Поле15].Value = ИНОРМА(![Поле1].Value, _
![Поле5].Value, _
![Поле7].Value, _
![Поле9].Value)
End With
End Sub
Private Sub Кнопка26_Click() ‘Кнопка «Закрыть»
DoCmd.Close acForm, "Для_финансовой_функции"
End Sub
Проверьте и в случае необходимости отладьте работу формы и представьте результаты преподавателю.
Таблица 5
Варианты заданий
№ варианта |
Задание |
1 |
Создать пользовательскую функцию расчета дохода по казначейскому чеку. Расчет выполняется по следующей формуле:
где: цена – цена казначейского чека на 100 руб номинальной стоимости, руб; цена>0; дата_вступ – дата погашения для казначейского чека; дата_согл – дата соглашения для казначейского чека; дата_вступ не должна превышать дата_согл более чем на год; дата_вступ> дата_согл. |
2 |
Создать пользовательскую функцию расчета накопленного дохода по ценным бумагам, процент по которым выплачивается в срок погашения. Расчет выполняется по следующей формуле:
где: номинал – номинальная стоимость ценных бумаг, руб; номинал>0; ставка – годовая процентная ставка для купонов по ценным бумагам; ставка>0; дата_погаш – дата погашения ценных бумаг; дата_вып – дата выпуска ценных бумаг; дата_погаш>дата_вып; Т – число дней в году. |
3 |
Создать пользовательскую функцию расчета суммы, полученной к сроку вступления в силу полностью обеспеченных ценных бумаг. Расчет выполняется по следующей формуле:
где: инвестиция – объем инвестиции в ценные бумаги, руб; инвестиция>0; скидка – процентная норма скидки для ценных бумаг; скидка>0; дата_вступ – дата погашения для ценных бумаг; дата_согл – дата согласования для ценных бумаг; дата_вступ> дата_согл; Т – число дней в году. |
4 |
Создать пользовательскую функцию расчета нормы скидки для ценных бумаг. Расчет выполняется по следующей формуле:
где: выкуп – выкупная цена ценных бумаг за 100 рублей номинальной стоимости, руб; выкуп>0; цена – стоимость ценных бумаг за 100 рублей номинальной стоимости, руб; цена>0; дата_вступ – дата погашения для ценных бумаг; дата_согл – дата согласования для ценных бумаг; дата_вступ> дата_согл; Т – число дней в году. |
5 |
Создать пользовательскую функцию расчета цены за 100 рублей номинальной стоимости для казначейского чека. Расчет выполняется по следующей формуле:
где: скидка – процентная норма скидки для казначейского чека; скидка>0; дата_вступ – дата погашения для ценных бумаг; дата_согл – дата согласования для ценных бумаг; дата_вступ> дата_согл; Т – число дней в году. |
6 |
Создать пользовательскую функцию расчета цены за 100 рублей нарицательной стоимости ценных бумаг, по которым доход выплачивается в срок вступления в силу. Расчет выполняется по следующей формуле:
где: ставка – процентная ставка дохода по ценным бумагам на дату выкупа; ставка>0; доход – годовой доход по ценным бумагам, руб; доход>0; дата_вып – дата выпуска ценных бумаг; дата_вступ – дата погашения для ценных бумаг; дата_согл – дата согласования для ценных бумаг; дата_вступ> дата_согл> дата_вып; Т – число дней в году. |
7 |
Создать пользовательскую функцию расчета цены за 100 рублей номинальной стоимости ценных бумаг, на которые сделана скидка. Расчет выполняется по следующей формуле:
где: погаш – выкупная цена ценных бумаг за 100 рублей номинальной стоимости, руб; погаш>0; скидка – процентная норма скидки для ценных бумаг, скидка>0; дата_вступ – дата погашения для ценных бумаг; дата_согл – дата согласования для ценных бумаг; дата_вступ> дата_согл; Т – число дней в году. |
8 |
Создать пользовательскую функцию расчета фактической годовой процентной ставки. Расчет выполняется по следующей формуле:
где: номин_ставка – номинальная годовая процентная ставка; номин_ставка>0; периодов_в_году – целое число периодов, составляющих год; периодов_в_году>0. |
9 |
Создать пользовательскую функцию расчета амортизации имущества для указанного периода. Расчет выполняется по следующей формуле:
где: стоим – начальная стоимость имущества, руб; стоим>0; ост_стоим – остаточная стоимость имущества в конце периода амортизации, руб; ост_стоим>0; время_эксплуатиции – количество периодов, за которые собственность амортизируется; период – указанный период, для которого рассчитывается амортизация (должен измеряться в тех же единицах, что и время_эксплуатации). |
10 |
Создать пользовательскую функцию расчета значения наращенного капитала с учетом дисконтирования. Расчет выполняется по следующей формуле:
где: капитал – текущий размер вложенного капитала, руб; капитал>0; норма – коэффициент дисконтирования или норма доходности, в долях единицы; норма>0; тек_год – текущий год; персп_год – перспективный год. |
,
руб,
;
руб,
;
руб,
;
%,
;
руб,
;
руб,
;
руб,
; %,
;
руб,
; руб,