1С 8.3 Перевод шестнадцатеричного числа в десятичное
Данные > Примеры кода 1С > 1С 8.3 Математика, числа
Перейти в раздел примеры кода 1С 8.3:
Перевод десятичного числа в шестнадцатеричное в 1С 8.3:
&НаКлиенте
Функция Hex_to_Dec(Знач пHex)// пHex - шестнадцатеричное число(строка)
Разрядность = 16;
пHex = СокрЛП(пHex);
МаксСтепень = СтрДлина(пHex) - 1;
ч10Число = 0;
счСимв = 1;
Пока МаксСтепень >=0 Цикл
пHexСимвол = Сред(пHex, счСимв, 1);
ПредставлениеHex = Найти("0123456789ABCDEF", пHexСимвол) - 1;
ч10Число = ч10Число + ПредставлениеHex * Pow(Разрядность, МаксСтепень);
МаксСтепень = МаксСтепень - 1;
счСимв = счСимв + 1;
КонецЦикла;
Возврат ч10Число; //Десятичное число (Число)
КонецФункции
Функция Hex_to_Dec(Знач пHex)// пHex - шестнадцатеричное число(строка)
Разрядность = 16;
пHex = СокрЛП(пHex);
МаксСтепень = СтрДлина(пHex) - 1;
ч10Число = 0;
счСимв = 1;
Пока МаксСтепень >=0 Цикл
пHexСимвол = Сред(пHex, счСимв, 1);
ПредставлениеHex = Найти("0123456789ABCDEF", пHexСимвол) - 1;
ч10Число = ч10Число + ПредставлениеHex * Pow(Разрядность, МаксСтепень);
МаксСтепень = МаксСтепень - 1;
счСимв = счСимв + 1;
КонецЦикла;
Возврат ч10Число; //Десятичное число (Число)
КонецФункции
0
комментарии
____________________
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник