Перевод из Десятичного в Двоичное и обратно

При разработке конфигураций, особенно если это обмен с сайтами или старыми системами учета, приходится переводить числа из одной системы исчисления в другую. Ниже примеры кода позволяющие выполнить данные функции перевода Десятичное в Двоичное и Двоичное в Десятичное:

Код 1C v 8.х

 Функция ДесятичноеВДвоичное(Знач ИсхЧисло) Экспорт

    

    ДвоичныйКод = "";

    Пока ИсхЧисло <> 0 Цикл

        ДвоичныйКод = "" + ИсхЧисло%2 + ДвоичныйКод ;

        ИсхЧисло = Цел(ИсхЧисло/2);

	КонецЦикла;

	

    Возврат ДвоичныйКод;

    

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



Функция ДвоичноеВДесятичное(Знач Стр2) Экспорт

	

	Стр = СокрЛП(Стр2);

	Рез=0;

	

	Для н=1 по СтрДлина(Стр) Цикл

		Рез=Рез*2+Число(Сред(Стр,н,1));

	КонецЦикла;

	

	Возврат Рез;

	

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

Опубликовано на сайте: https://HelpF.pro
Прямая ссылка: https://HelpF.pro/faq8/view/1672.html