,Received(Settlement: DateTime; Maturity: DateTime; Investment: Double; Discount: Double; [Basis: Integer = 0]): Double;
Settlement. Дата расчета за ценные бумаги. Должен быть меньше Maturity;
Maturity. Срок погашения ценных бумаг. Должен быть больше Settlement;
Investment. Объем инвестиции в ценные бумаги. Должен быть положительным;
Discount. Скидка на ценную бумагу. Должен принадлежать промежутку [0;B/DIM], где B - количество дней в году и DIM - количество дней от даты выпуска до даты погашения;
Basis. Используемый способ вычисления дня. Задается в интервале от 0 до 4:
0. Способ вычисления дня американский/360 дней (метод NSAD). Значение по умолчанию;
1. Способ вычисления дня Фактический/фактический;
2. Способ вычисления дня Фактический/360 дней;
3. Способ вычисления дня Фактический/365 дней;
4. Способ вычисления дня европейский 30/360 дней.
Необязательный параметр.
Метод Received возвращает сумму, полученную к сроку погашения полностью обеспеченных ценных бумаг.
Recieved вычисляется следующим образом:
,
где:
B. Число дней в году (зависит от выбранного значения параметра Basis);
DIM. Количество дней от даты выпуска до даты погашения.
Добавьте ссылку на системную сборку MathFin.
Sub UserProc;
Var
r: Double;
Begin
r := Finance.Received(DateTime.ComposeDay(2008,01,01), DateTime.ComposeDay(2008,06,01), 1500.5, 0.15, 0);
Debug.WriteLine(r);
End Sub UserProc;
В результате выполнения примера в окно консоли будет выведена сумма, равная 1600.53.
См. также: