Модуль: Math

Описание
Функция определяет количество этапов, необходимых для погашения кредита до значения определенного в параметре FutureValue.
PresentValue - первоначальная сумма кредита.
Rate - процентная ставка.
Payment - величина регулярных выплат.
Параметр PaymentTime определяет, происходят выплаты в начале (PtStartOfPeriod) этапа или в его конце (ptEndOfPeriod).

Пример
Первоначальная сумма кредита составляет 364руб. Процентная ставка 20%. Регулярные ежемесячные выплаты по 100руб производятся в конце месяца. Рассчитаем сколько месяцев необходимо для полной выплаты кредита.

var
   Np: Extended;
begin
   ...
   Np:= NumberOfPeriods (0.2, 100, 364, 0, ptEndOfPeriod);
      { Np:= -3 }
  ...
end;