Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
15 дек 2024, 20:02

Алгоритмы перевода числа из любой системы счисления

Автор MuI_I_Ika, 29 ноя 2013, 23:20

0 Пользователей и 1 гость просматривают эту тему.

MuI_I_Ika

Алгоритмы перевода числа из любой системы счисления

Функция ПреобразоватьИз10ВЛюбую(Знач Значение=0,Нотация=36) Экспорт

     Если Нотация<=0 Тогда Возврат("") КонецЕсли;
     Значение=Число(Значение);
     Если Значение<=0 Тогда Возврат("0") КонецЕсли;
     Значение=Цел(Значение);
     Результат="";
     Пока Значение>0 Цикл
          Результат=Сред("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ",Значение%Нотация+1,1)+Результат;
          Значение=Цел(Значение/Нотация) ;
     КонецЦикла;
     Возврат Результат;

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



Функция ПреобразоватьИзЛюбойВ10(Знач Значение="0",Нотация=36) Экспорт

     Если Нотация<=0 Тогда Возврат(0) КонецЕсли;
     Значение=СокрЛП(Значение);
     Если Значение="0" Тогда Возврат(0) КонецЕсли;
     Результат=0;
     Длина=СтрДлина(Значение);
     Для Х=1 По Длина Цикл
          М=1;
          Для У=1 По Длина-Х Цикл М=М*Нотация КонецЦикла;
          Результат=Результат+(Найти("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ",Сред(Значение,Х,1))-1)*М;
     КонецЦикла;
     Возврат Окр(Результат);

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

Теги:

Похожие темы (1)

Рейтинг@Mail.ru

Поиск