PORTA.ru - on-line магазин ПОРТАтивной техники.PORTA.ru - on-line магазин ПОРТАтивной техники.

Новости
Мои разработки
FAQ
Ссылки
Форум

Перевод числа из десятичной системы в любую (до 16)

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


- Наверх -

В качестве благодарности за решение проблемы, щелкните здесь.
Поддержите развитие сайта.
Спасибо!
Автор и разработчик: Кайгородов Андрей aka mszsuz. mszsuz@online.sinor.ru ICQ#33993114. Дата последнего обновления страницы: Friday 09.04.2004 16:52
1C:TOP-100 Рейтинг ресурсов 1С
Hosted by uCoz