I. МАТЕМАТИЧЕСКИЕ ФУНКЦИИ И ПРОЦЕДУРЫ
7. Функции и процедуры для финансовых вычислений
Функция 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
[Вернуться к содержанию]