() mip128, Вставьте в общий модуль ОбщегоНазначения функцию
// Преобразует шестнадцатиричное число в десятичное
//
// Параметры:
// Источник - строка с шестнадцатиричным числом
//
// Возвращаемое значение:
// Число - десятичное число
//
Функция ШестнадцатиричноеВДесятичное(Источник) Экспорт
Результат = 0;
Для Поз = 1 По СтрДлина(Источник) Цикл
ТекКод = КодСимвола(Источник, Поз);
Если ТекКод >= КодСимвола("0") И ТекКод <= КодСимвола("9") Тогда
ТекКод = ТекКод - КодСимвола("0");
ИначеЕсли ТекКод >= КодСимвола("a") И ТекКод <= КодСимвола("f") Тогда
ТекКод = ТекКод +10 - КодСимвола("a");
ИначеЕсли ТекКод >= КодСимвола("A") И ТекКод <= КодСимвола("F") Тогда
ТекКод = ТекКод +10 - КодСимвола("A");
КонецЕсли;
Результат = Результат * 16 + ТекКод;
КонецЦикла;
Возврат Результат;
КонецФункции // ШестнадцатиричноеВДесятичное()
Показать
Если в нем нет функции ДесятичноеВШестнадцатиричное(), то вставьте ее тоже.
// Преобразует десятичное число в шестнадцатиричное
//
// Параметры:
// Источник - число (десятичное) от 0 до 255
//
// Возвращаемое значение:
// Строка - десятичное число
//
Функция ДесятичноеВШестнадцатиричное(Источник) Экспорт
ШестнадцатиричныеСимволы = "0123456789ABCDEF";
Если Источник < 0 Тогда
Возврат "00";
КонецЕсли;
Если Источник > 255 Тогда
Возврат "FF";
КонецЕсли;
ПервыйСимвол = Цел(Источник / 16) + 1;
ВторойСимвол = Источник % 16;
Возврат Сред(ШестнадцатиричныеСимволы, ПервыйСимвол, 1) + Сред(ШестнадцатиричныеСимволы, ВторойСимвол, 1);
КонецФункции // ДесятичноеВШестнадцатиричное()
Показать
Вообще эти процедуры в типовых должны быть.