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

26.11.08

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

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

Бесплатные

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

Узнавайте о новых бесплатных решениях в нашей телеграм-группе Инфостарт БЕСПЛАТНО

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

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

Вступайте в нашу телеграмм-группу Инфостарт

+8 –

См. также

Заполнение формул в файлах Excel (кроссплатформенное решение)

Загрузка и выгрузка в Excel Универсальные функции Программист 1С:Предприятие 8 Россия Бесплатно (free)

Описанный ниже подход позволяет в три шага заполнять формулы в Excel файлы, вне зависимости от ОС сервера (MS Windows Server или Linux). Подход подразумевает отказ от работы с COM-объектом в пользу работы через "объектную модель документа" (DOM).

30.10.2025    3395    Abysswalker    8    

45
Отключение уведомления "Расширение конфигурации неактивно"

Универсальные функции Работа с интерфейсом Программист 1С:Предприятие 8 Бесплатно (free)

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

14.05.2025    6312    DeerCven    15    

57
В помощь разработчику: преобразование табличного документа в запрос

Инструментарий разработчика Универсальные функции Запросы Программист 1С:Предприятие 8 1C:Бухгалтерия 1С:Бухгалтерия 3.0 1С:Зарплата и Управление Персоналом 3.x Бесплатно (free)

Внешняя обработка для создания запроса на основании табличных данных.

22.07.2024    9755    237    ixijixi    10    

41
Загрузка табличного документа в таблицу значений. Пять строк кода, которые изменили мир

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

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

21.05.2024    48635    dimanich70    83    

169
Вставляем картинку из буфера обмена (платформа 1С 8.3.24)

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

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

1 стартмани

18.03.2024    7285    6    John_d    13    

59
GUID в 1С 8.3

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

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

12.02.2024    60795    atdonya    31    

69
Переоткрытие внешних обработок

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

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

30.11.2023    9077    ke.92@mail.ru    17    

68
Генерация штрихкода и QR, разбор настроек и примеры

БСП (Библиотека стандартных подсистем) Сканер штрих-кода Универсальные функции Этикетки, ценники Программист Бизнес-аналитик 1C:Бухгалтерия Бесплатно (free)

Разберем на примерах использование компоненты из БСП для генерации штрихкода и матричных кодов.

15.09.2023    41161    YA_418728146    14    

127
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. GSoft 2339 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 Сейчас в теме
Да. Был уже где то такой алгоритм по переводу чисел. Но найти что то у себя в папках... Спасибо, за программку и отдельно за код алгоритма.
+ – Ответить
Для отправки сообщения требуется регистрация/авторизация