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