С 01.09.14 вступило в силу дополнение к закону о полной стоимости кредита.

В нем указана обязательная для указания во всех кредитных договорах формула Полной Стоимости Кредита (ПСК)

Не вдаваясь в математические нюансы, сейчас показатель полной стоимости займа практически идентичен расчетной процентной ставке в случае, если Вы не вменяете в обязанность пайщику уплачивать комиссионные (или иные платежи), и не включаете в расчет членские взносы.

Технические особенности расчёта полной стоимости займа

В соответствии с п. 2, ст. 6 ПСЗ определяется «с точностью до третьего знака после запятой», а указывает ее в рамке, как и прежде надо «прописными буквами черного цвета на белом фоне четким, хорошо читаемым шрифтом максимального размера из используемых на этой странице размеров шрифта». Таким образом, в квадратной рамке в правом верхнем углу договора следует указывать словами «ПОЛНАЯ СТОИМОСТЬ ЗАЙМА СОСТАВЛЯЕТ ДЕВЯТНАДЦАТЬ ЦЕЛЫХ ДЕВЯТЬСОТ ДЕВЯНОСТО ДЕВЯТЬ ТЫСЯЧНЫХ ПРОЦЕНТОВ ГОДОВЫХ», или, если у Вас получилось целое значение – «ДВАДЦАТЬ ЦЕЛЫХ НОЛЬ ТЫСЯЧНЫХ ПРОЦЕНТОВ ГОДОВЫХ».

Решить задачку по расчёту ПСЗ можно с использованием функции "Подбор параметра" или "Поиск решения". Мы же предлагаем для расчёта более упрощённый вариант - с использованием массивов. Непосредственно готовый файл по расчёту в формате ODS вы можете скачать по ссылке. Если ссылка не работает, скопируйте данный адрес в строку браузера и скачайте файл: http://www.creditcoop.ru/psc.ods

Расчёт проводился в программе LibreOffice Calc, а не в MS Excel (по той простой причине, что последний - коммерческий продукт). Поэтому, для открытия файла вам необходимо будет скачать и установить офисный пакет LibreOffice.

В прилагаемой обработке находится функция вычисления формулы из закона.

Сам расчет осуществляется в функции ПСК() в которую передается таблица значений, типа [Дата][Сумма]

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

Результат расчетов совпадает с приведенными в пояснительной записке к закону примерами.

Полная стоимость потребительского кредита (займа) определяется в процентах годовых по формуле:

ПСК = i x ЧБП x 100,

где ПСК - полная стоимость кредита в процентах годовых с точностью до третьего знака после запятой;

ЧБП - число базовых периодов в календарном году. Продолжительность календарного года признается равной тремстам шестидесяти пяти дням;

i - процентная ставка базового периода, выраженная в десятичной форме.

2) дополнить частью 2.1 следующего содержания:

"2.1. Процентная ставка базового периода определяется как наименьшее положительное решение уравнения:

где ДПк - сумма k-го денежного потока (платежа) по договору потребительского кредита (займа). Разнонаправленные денежные потоки (платежи) (приток и отток денежных средств) включаются в расчет с противоположными математическими знаками - предоставление заемщику кредита на дату его выдачи включается в расчет со знаком "минус", возврат заемщиком кредита, уплата процентов по кредиту включаются в расчет со знаком "плюс";

qk - количество полных базовых периодов с момента выдачи кредита до даты k-го денежного потока (платежа);

ek - срок, выраженный в долях базового периода, с момента завершения -го базового периода до даты k-го денежного потока;

m - количество денежных потоков (платежей);

i - процентная ставка базового периода, выраженная в десятичной форме.";

Для определения процентной ставки применяется актуарный метод, суть которого состоит в том, что начисленные проценты прибавляются к сумме кредита. Кредитор должен начислять проценты каждый раз, когда производится платёж. В первую очередь, платёж предназначен для уплаты этих процентов, и если его размер превышает сумму процентов, то его остаток расходуется на уменьшение суммы основного долга. Если размер платежа оказывается меньше суммы процентов, то оставшиеся неуплаченными проценты не должны прибывляться к основному долгу, иначе на них будут начисляться проценты.

ПСК равна номинальной годовой процентной ставке, полученной путём умножения ставки базового периода на количество базовых периодов в году.

Продолжительность всех месяцев признается равной. Базовым периодом в кредитной сделке признаётся такой временной интервал, который возникает наиболее часто. Если два или более временных интервала встречаются с равной частотой, то наименьший из них признаётся базовым периодом. Если в сделке отсутствуют повторяющиеся временные интервалы, то базовым периодом признаётся временной интервал, который является средним арифметическим для всех периодов, округлённым с точностью до стандартного интервала.

Новая формула, которая устанавливается законом, существенно отличается от «старой» - она не предполагает возведения в дробную степень, так как число полных базовых периодов является натуральным числом (1, 2, 3 и т. д.) и не предусматривает ежедневной мультипликации процентов. Процентная ставка получается путём умножения процентной ставки базового периода на количество базовых периодов в году и, по сути, может быть равна процентной ставке по договору при соблюдении ряда условий.

Раньше всё было довольно просто, была встроенная функция, которая позволяла рассчитать ПСЗ одной формулой. Теперь функция ЧИСТВНДОХ не работоспособна, т.к. формула изменена. И пока единственный вариант её расчёта - это с использованием массивов. Приведём пример расчёта в бесплатном редакторе электронных таблиц LibreOffice Calc. Затем, используя аналогичный алгоритм расчёта, вы можете применить его непосредственно к вашему ПО.

Самый универсальный вариант расчёта - это привязать ПСЗ к графику платежей. Поэтому, наиболее простая форма таблицы - это два столбца - дата и сумма платежа. Для того, чтобы не нагромождать таблицу, первая строчка - заголовок таблицы, вторая строчка - непосредственная выдача займа, а затем сам график платежей. Итак, в случае, если мы выдаём займ на сумму 20 тыс. b и под 1,5% в месяц. Таблица примет следующий вид: Итак, в связи с тем, что встроенных функций у нас нет, было решено использовать специальный макрос, который создавал бы массивы, сканировал таблицу, рассчитывал нужные параметры и выдавал результат. Чтобы не перегружать программу, зададим расчёт ПСК в специальную кнопку. Итак, создаём в LibreOffice Calc кнопку, куда прописываем первые строчки кода:

Rem Attribute VBA_ModuleType=VBAModule

Option VBASupport 1

Sub btn1_click()

Эти строчки включают возможность выполнения функции VBA в LibreOffice Calc, и включают событие по нажатию на кнопку.

Далее, сканируем наши имеющиеся столбцы A и B, создаём массив и заполняем его нужными нам данными:

    Dim dates()

    Columns("A:A").Select

    dates() = Application.Transpose(Range(ActiveCell, Cells(Rows.count, ActiveCell.Column).End(xlUp)))

         dim dates1(1 to UBound(dates)+1 )

    for nn=0 to UBound(dates)

    dates1(nn+1)=dates(nn)

    next     dates=dates1

         Dim summa()

    Columns("B:B").Select

    summa = Application.Transpose(Range(ActiveCell, Cells(Rows.count, ActiveCell.Column).End(xlUp)))

           dim summa1(1 to UBound(summa)+1 ) as double

    for nn=1 to UBound(summa)

summa1(nn+1)=summa(nn)

    next

    summa=summa1

Рассчитываем количество дат, в нашем случае оно будет равно 12:

    Dim m As Integer

    m = UBound(dates)

Далее рассчитываем БП и ЧБП. Фактически БП – это наиболее часто встречающийся временной интервал между платежами. Если в графике платежей отсутствуют повторяющиеся временные интервалы и иной порядок не установлен Банком России, базовым периодом признается временной интервал, который является средним арифметическим для всех периодов, округленным с точностью до стандартного временного интервала. Стандартным временным интервалом признаются день, месяц, год, а также определенное количество дней или месяцев, не превышающее по продолжительности одного года. Таким образом вы можете определить свой БП. Если платежи ежемесячные, то БП=365/12~=30. Смысл ЧБП был описан выше.

    bp = 30

    cbp = Round(365 / bp)

    dim k as integer

Далее посчитаем число расчётных дат. Они нам пригодятся в следующем шаге

    ReDim Days(m)

    For k = 2 To m

        Days(k) = dates(k) - dates(2)

    Next

         ReDim e(m) as double

    ReDim q(m) as double

Теперь самое время рассчитать ДПк, Qk и Ek.

    For k = 2 To m

       q(k) = Days(k) \ bp

        e(k) = (Days(k) Mod bp) / bp

    Next

После того, когда у нас на руках имеются все числа, мождно рассчитать число i по заданной формуле. Для этого будем использовать метод подбора в цикле, до тех пор, пока значение не станет равным 0.

   dim x as double

    dim x_m as double

    const s as double  = 0.000001

    dim i as double

         i = 0

    x = 1

    x_m = 0      

    Do While x > 0

        x_m = x

        x = 0         For k = 2 To m

            x = x + summa(k) / ((1 + e(k) * i) * ((1 + i) ^ q(k)))

        Next

        i = i + s

    Loop

    If x > x_m Then

        i = i - s

    End If

И последний шаг - собственно расчёт ПСК и вывод значения в нужные нам ячейки:

    dim psk as double

    psk = Round(i * cbp, 5)

    Cells(3, 7) = psk

В нашем случае программа посчитала, что ПСЗ составляет 17,7%.

Преимущество данного способа расчёта в том, что это наиболее простой вариант в использовании, причём изначально привязан к графику погашения. Следовательно, является универсальным. В дальнейшем принцип данного расчёта может быть применим к использованию в других программах.

Примечание: Все платежи, осуществлен­ные заемщиком до даты предоставления кредита, включаются в состав платежей, осуществляемых заемщиком на дату начального денежного потока (платежа) (ч. 3 ст. 6 Закона N 353-ФЗ).