Перевести Десятичное число в Шестнадцатеричное и наоборот в 1С

Перевод десятичного числа в шестнадцатеричное в 1С

Параметры:
_Число — Число — Десятичное число
Возвращаемое значение: Строка — Шестнадцатеричное число

Функция DecToHex(Знач _Число)

База = 16;

Результат = "";

Пока _Число <> 0 Цикл

Поз =_Число % База;

Результат = Сред("0123456789ABCDEF", Поз + 1, 1) + Результат;

_Число = Цел(_Число / База);

КонецЦикла;

Возврат Результат;

КонецФункции

Параметры:
_Hex — Строка — Шестнадцатеричное число
Возвращаемое значение: Число — Десятичное число

Функция HexToDec(Знач _Hex)

База = 16;

_Hex = СокрЛП(_Hex);

СтаршаяСтепень = СтрДлина(_Hex) - 1;

Результат = 0;

счСимволов = 1;

Пока СтаршаяСтепень >=0 Цикл

_HexСимвол = Сред(_Hex, счСимволов, 1);

Представление = Найти("0123456789ABCDEF", _HexСимвол) - 1;

Результат = Результат + Представление * Степень(База, СтаршаяСтепень);

СтаршаяСтепень = СтаршаяСтепень - 1;

СчСимволов = СчСимволов + 1;

КонецЦикла;

Возврат Результат;

КонецФункции