Delphi. Функция 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 при написании программ, т.к. данная функция работает не корректно.
Вызов
   |