1С 8.3 Перевод шестнадцатеричного числа в десятичное - Программист 1С Минск. Автоматизация бизнеса.

Перейти к контенту

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

Данные > Примеры кода 1С > 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Число; //Десятичное число (Число)

КонецФункции
Поиск кода
0
комментарии
____________________
Copyright by 1Cnik.by©, «Программист 1С в г.Минске», 17.04.2020
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник
Назад к содержимому