Функции и процедуры Delphi. Справочник.

I. МАТЕМАТИЧЕСКИЕ ФУНКЦИИ И ПРОЦЕДУРЫ

7. Функции и процедуры для финансовых вычислений

Функция NetPresentValue (
Rate: Extended;
const CashFlows: array of Double;
PaymentTime: TPaymentTime ): Extended;

Модуль: Math

Описание
Функция вычисляет значение текущего платежа, используя массив с расчетными значениями. Данная функция помогает определить расчетную стоимость инвестиций на основе предполагаемого (расчетного) дохода.
Параметр Rate определяет процентную ставку инвестиций.
CashFlows - массив расчетных значений текущих платежей.
Параметр PaymentTime указывает, происходят выплаты в начале (PtStartOfPeriod) или в конце (ptEndOfPeriod) платежного этапа.

Пример
var

PayValue: Extended;
CashFlows: array of Double;

begin

...
SetLength(CashFlow, 3);
CashFlow[0]:=-100;
CashFlow[1]:= 110;
CashFlow[2]:= 121;
PayValue:= NetPresentValue (0.1, CashFlow, PtStartOfPeriod);
  { PayValue:= 100 }
...

end;

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