Функция InterestRate( NPeriods: Integer; Payment, PresentValue, FutureValue: Extended; PaymentTime: TPaymentTime ): Extended;
Модуль: Math
Описание Функция вычисляет процентную ставку инвестиций, необходимую для возврата суммы инвестиций PresentValue с дивидендами.
PresentValue - сумма инвестиций.
FutureValue - полная сумма, полученная от инвестиций. Включает возврат первоначальной суммы инвестиций и дивиденды.
NPeriods - количество этапов выплат.
Payment - сумма периодических выплат.
Параметр PaymentTime определяет, происходят выплаты в начале (PtStartOfPeriod) этапа или в его конце (ptEndOfPeriod).
Пример
var
IRate : Extended;
begin
...
IRate:=InterestRate(1, -100, -1000, 1500, ptEndOfPeriod); { IRate:= 0.4 }
... end;
ВНИМАНИЕ!!!
Следует аккуратно использовать финансовые функции и внимательно следить за расстановкой знаков плюс/минус в параметрах функций.
Не рекомендуем использовать функцию InterestRate при написании программ, т.к. данная функция работает не корректно.
Вызов | Результат |
InterestRate(1, -100, -1000, 1110, ptEndOfPeriod); | 0.01 |
InterestRate(1, -100, -1000, 1150, ptEndOfPeriod); | 0.05 |
InterestRate(1, -100, -1000, 1200, ptEndOfPeriod); | 0 (bag) |
InterestRate(1, -100, -1000, 1250, ptEndOfPeriod); | 0.15 |
InterestRate(1, -100, -1000, 1300, ptEndOfPeriod); | 0.2 |
|