Перевод чисел в системах 2...36

26.11.08

Разработка - Универсальные функции

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

Бесплатные

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование Скачано Бесплатно
-
.1227696838 269,96Kb
90 Скачать бесплатно

с исходниками,
мне сегодня понадобилась, откопал из раннего. может еще кому пригодится

См. также

Универсальные функции Программист 1С v8.3 1C:Бухгалтерия Бесплатно (free)

Благодаря этим пяти строчкам можно больше не заморачиваться с загрузкой из внешних файлов. Пользуюсь везде, всегда и постоянно.

21.05.2024    36311    dimanich70    83    

155

Универсальные функции Программист 1С v8.3 1C:Бухгалтерия Абонемент ($m)

Задача: вставить картинку из буфера обмена на форму средствами платформы 1С.

1 стартмани

18.03.2024    5511    6    John_d    11    

57

Универсальные функции Программист Стажер 1С v8.3 1C:Бухгалтерия Бесплатно (free)

Пришлось помучиться с GUID-ами немного, решил поделиться опытом, мало ли кому пригодится.

12.02.2024    42401    atdonya    29    

64

Универсальные функции Программист 1С v8.3 Бесплатно (free)

На заключительных этапах, когда идет отладка или доработка интерфейса, необходимо много раз переоткрыть внешний объект. Вот один из способов автоматизации этого.

30.11.2023    7169    ke.92@mail.ru    17    

66

WEB-интеграция Универсальные функции Механизмы платформы 1С Программист 1С v8.3 1C:Бухгалтерия Бесплатно (free)

При работе с интеграциями рано или поздно придется столкнуться с получением JSON файлов. И, конечно же, жизнь заставит проверять файлы перед тем, как записывать данные в БД.

28.08.2023    19486    YA_418728146    8    

174

Пакетная печать Печатные формы Адаптация типовых решений Универсальные функции 1С v8.3 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Абонемент ($m)

Расширение для программ 1С:Управление торговлей, 1С:Комплексная автоматизация, 1С:ERP, которое позволяет распечатывать печатные формы для непроведенных документов. Можно настроить, каким пользователям, какие конкретные формы документов разрешено печатать без проведения документа.

2 стартмани

22.08.2023    5352    86    progmaster    13    

4

Инструментарий разработчика Универсальные функции 1С v8.3 1С:Бухгалтерия 3.0 1С:ERP Управление предприятием 2 1С:Управление холдингом 1С:Зарплата и Управление Персоналом 3.x 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Управление торговлей 11 1С:Розница 2 1С:Розница 3.0 1С:Документооборот Абонемент ($m)

Копирует в буфер значения из списков, из ячеек отчетов, таблиц, настроек списков, других отборов и вставляет в выбранную настройку отбора. Работает с Объект не найден. Работает как в одной так и между разными базами 1С. Использует комбинации [Alt+C] Копировать список, [Alt+V] Вставить список. Также для копирования данных используется стандартная [Ctrl+C] (например из открытого xls, mxl, doc и т.п. файла скопировать список наименований)

1 стартмани

13.10.2022    21196    208    sapervodichka    117    

138
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. GSoft 2237 26.11.08 15:08 Сейчас в теме
очередная полезняшка)))
+1
2. mctsimco 12.06.09 12:27 Сейчас в теме
гых... Бином, панимаишь, ньютона...


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

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

//=======================
Yimaida; Diversus; +2 Ответить
3. Yimaida 38 14.04.14 14:28 Сейчас в теме
Да. Был уже где то такой алгоритм по переводу чисел. Но найти что то у себя в папках... Спасибо, за программку и отдельно за код алгоритма.
Оставьте свое сообщение