PostHeaderIconDelphi. Функция InterestPayment( Rate: Extended; NPeriods: Integer ; PresentValue, FutureValue: Extended; PaymentTime: TPaymentTime ): Extended;

Функция InterestPayment( Rate: Extended; NPeriods: Integer ; PresentValue, FutureValue: Extended; PaymentTime: TPaymentTime ): Extended;

Модуль: Math

Описание
Функция вычисляет процентную ставку кредита на определенном этапе в денежном исчислении.

PresentValue - сумма кредита.
Rate - фиксированная процентная ставка кредита.
NPeriods - число этапов, в течение которых производятся выплаты.
Period - номер этапа выплат, для которого производятся вычисления.
FutureValue - значение суммы кредита, по истечении выплат.
Параметр PaymentTime определяет, происходят выплаты в начале (PtStartOfPeriod) этапа или в конце (ptEndOfPeriod).


Знак минус в результате функции показывает, что данная сумма является кредитовой, т.е. должна быть списана со счета.

Пример
var
   Pay : Extended;
begin
  ...
   Pay:=InterestPayment(0.1, 1, 5, 1000, 0, PtStartOfPeriod);
      { Pay:= -90.9090909090909 }
  ...
end;

 
Copyright © 2007-2010 IsIProg.ru. All Rights Reserved.