Перевод номера банковского счета в стандарт IBAN для Украины

Формат кода IBAN включает

• 1—2 символы — код страны, где находится банк получателя (в соответствии со стандартом ISO 3166-1 alpha-2)
• 3—4 символы — контрольное уникальное число IBAN, рассчитываемое по стандарту (ISO 7064)
• 5—34 символы — Basic Bank Account Number (BBAN), базовый номер банковского счёта, включающий, как минимум, сам номер счёта, так и признак банка получателя (в том числе код филиала банка). Длина и содержание этой части IBAN зависят от выбора конкретной страны, но ограничиваются максимум 30 знаками.

Источник: https://ru.wikipedia.org/wiki/IBAN

Для Украины длина номера IBAN 29 символов

Предпочтительный алгоритм:
   1. Проверить, что общая длина IBAN является правильной согласно стране. Если нет, IBAN является недействительным.
   2. Замените две контрольные цифры на 00 (например, UA00 для Украины).
   3. Переместить четыре начальных символа в конец строки.
   4. Заменить буквы в строке цифрами, расширив строку при необходимости, чтобы A или a = 10, B или b = 11 и Z или z = 35. Таким образом, каждый алфавитный символ заменяется 2 цифрами
   5. Преобразовать строку в целое число (то есть игнорировать начальные нули).
   6. Вычислить mod-97 из нового числа, в результате чего получится остаток.
   7. Вычислить остаток от 97; полученный результат отнять от 98 и использовать результат для двух контрольных цифр. Если результатом является однозначное число, добавьте к нему начальный 0, чтобы сделать двузначное число.

Поэтапный расчет D mod 97 может быть выполнен разными способами. Один из таких способов заключается в следующем:

   1. Начиная с самой левой цифры D, составьте число, используя первые 9 цифр, и назовите его N.
   2. Рассчитать N мод 97.
   3. Создайте новый 9-значный N путем объединения вышеуказанного результата (шаг 2) со следующими 7 цифрами D. Если в D осталось менее 7 цифр, но хотя бы один, то создайте новый N, который будет иметь менее 9 цифры из вышеприведенного результата (шаг 2), за которыми следуют оставшиеся цифры D
    4. Повторяйте шаги 2–3, пока все цифры D не будут обработаны

Результатом окончательного расчета на шаге 2 будет D mod 97 = N mod 97.
 

пример алгоритма mod 97

В этом примере вышеупомянутый алгоритм для D mod 97 будет применен к D = 3214282912345698765432161182. (Цифры имеют цветовую кодировку, чтобы помочь описанию ниже.) Если результат равен единице, IBAN, соответствующий D, проходит проверку контрольной цифры.

    Построить N из первых 9 цифр D

        N = 321428291

    Рассчитать N мод 97 = 70
    Создайте новый 9-значный N из вышеуказанного результата (шаг 2), а затем следующие 7 цифр D.

        N = 702345698

    Рассчитать N мод 97 = 29
    Создайте новый 9-значный N из приведенного выше результата (шаг 4), а затем следующие 7 цифр D.

        N = 297654321

    Рассчитать N мод 97 = 24
    Создайте новый N из приведенного выше результата (шаг 6), а затем оставшиеся 5 цифр D.

        N = 2461182

    Рассчитать N мод 97 = 1

Начиная с шага 8, конечный результат — D mod 97 = 1

Для проверки генерации IBAN можно использовать ряд сайтов, например, https://bank.codes/iban/generate/ukraine/

Программный код обработки:

Функция ПеревестиБуквыВЦифрыДляМсчета(знак)
Если найти("0123456789", "" + знак)>0 тогда
//это изначально цифра
возврат "" + знак;
Иначе
//буква
возврат "" + (10 + (кодсимвола(нрег(знак),1)-кодсимвола("a",1)));
КонецЕсли;
КонецФункции

Функция КонтрольнаяСумма(кс)
Если стрдлина(кс)<>29 Тогда
Сообщить ("номер счета не для Украины");
Возврат "00";
КонецЕсли;
//переставляем UA00 в конец
кс = сред(кс, 5, 25) + сред(кс,1,4);
кс2 = "";
для сч = 1 по 29 цикл
кс2 = кс2 + ПеревестиБуквыВЦифрыДляМсчета(сред(кс,сч, 1));
конеццикла;
//алгоритм mod 97
для сч = 0 по 10 цикл
кс2 = ("" + (число(сред(кс2,1,9)) % 97) + сред(кс2, 10));
конеццикла;
возврат прав("00"+(98-число(кс2)),2);
КонецФункции

Функция СчетВМеждународномФормате(счет, мфо)
счет_ = сокрлп(счет);
мфо_ = сокрлп(мфо);
длина_счет = стрдлина(счет_);
длина_мфо = стрдлина(мфо_);
длинанулей = 29 - 2 - 2 - длина_мфо -длина_счет;
кс = КонтрольнаяСумма("UA00" + мфо_ + прав("00000000000000000000000000000", длинанулей) + счет_);
возврат "UA" + кс + мфо_ + прав("00000000000000000000000000000", длинанулей) + счет_;
КонецФункции

Процедура КнопкаВыполнитьНажатие(Кнопка)
IBAN = СчетВМеждународномФормате(СтарыйСчет,мфо);
КонецПроцедуры