Советы по Delphi

Расчет периодичности выплат долгов


PAYMENT()

Возвращает "периодическую" сумму, необходимую для погашения долга.



    function payment(princ, int, term: double): double; var temp: double;
begin
int := int / 100; temp := exp(ln(int + 1) * term); result := princ * ((int * temp) / (temp - 1)); end;

Синтаксис

PAYMENT(<principal expN>, <interest expN>, <term expN>)

<principal expN>

Общий объем платежа за все время.

<interest expN>

Процентная ставка за период. Выражается как положительное десятичное число. Процентная ставка относится к указанному периоду времени. Должна быть определена в процентах. Внутри функции число умножается на 100.

<term expN>

Количество платежей. Определите желаемое количество платежей за указанный срок.

Описание

PAYMENT( ) используется для вычисления суммы периодических платежей (payment), требуемых для погашения суммы <principal expN> за <term expN> платежей. PAYMENT( ) возвращает числовое значение, основанное на фиксированной процентной ставке в расчете за определенный промежуток времени. Если <principal expN> положительный, PAYMENT( ) возвратит положительное число. Если <principal expN> отрицательный, PAYMENT( ) возвратит отрицательное число. Процентная ставка выражается десятичным числом. Для примера, если показатель годового процента 9.5%, <interest expN> = 9.5 для ежегодно осуществляемых платежей.

Значения <interest expN> и <term expN> определяют полный период времени платежей. К примеру, если платежи происходят ежемесячно и выражаются месячной процентной ставкой, то можно получить количество месяцев, в течение которых осуществляются платежи. И наоборот. Например, для чтобы выразить показатель месячного процента от годового 9.5%, нужно разделить 9.5/12, т.е. 9.5% разнести на 12 месяцев. Ниже приведена формула для вычисления PAYMENT( ): term int*(1 + int)^ pmt = princ * ------------------- term (1 + int)^ - 1 где int = rate / 100 (как процент).

Пример: Требуется вычислить размер ежемесячных платежей при условии, что полная сумма $16860.68 должна быть возвращена в течение пяти лет, по 9% ежемесячно. Формула выглядит следующим образом:

    MyVar := PAYMENT(16860.68, 9/12, 60)       {Возвратит 350.00}

[001971]



Содержание раздела