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

Вызов	Результат
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

[Вернуться к содержанию]