Меню сайта
Мини-чат
Чтобы добавить сообщение, необходимо авторизоваться.
Главная » Статьи » Не стандартные примеры на 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}
Категория: Алгоритмы | Добавил: DelphiAiX (28.04.2012)
Просмотров: 983 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]