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

Функция 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;