Бала задача переводить цвет элементов формы в шаблон HTML. Цвет RGB из формы мог достать только по компонентам в виде числа, а в разметке умею задавать цвет только в формате #XXYYZZ где XX, YY, ZZ задаються компоненты цвета в шестнадцитеричной системе. Вот и пришлось думать о переводе.
В результате такие вот функции:
Функция ВозвестиВСтепень(Число, Степень)
Результат = 1;
для й =1 по Степень Цикл
Результат = Результат * Число;
КонецЦикла;
Возврат Результат;
КонецФункции
Функция ПеревестиЧислоВшестнадцатеричное(Число) Экспорт
ЧислаРазряда = Новый Соответствие;
ВремЧисло = Число;
максСтепень = 0;
Пока ВремЧисло >= 16 Цикл
ЧислоРазряда = ВремЧисло;
Степень = 0;
Пока Не Цел(ЧислоРазряда) < 16 Цикл
ЧислоРазряда = ЧислоРазряда / 16;
Степень = Степень + 1;
максСтепень = макс(максСтепень, Степень);
КонецЦикла;
ЧислаРазряда.Вставить(Степень,Цел(ЧислоРазряда));
ВремЧисло = ВремЧисло - ВозвестиВСтепень(16,Степень)*Цел(ЧислоРазряда);
КонецЦикла;
ЧислаРазряда.Вставить(0,Цел(ВремЧисло));
ЧислВ16 = "";
Для й = 0 по максСтепень Цикл
Если ЧислаРазряда.Получить(й) = Неопределено Тогда
ЧислаРазряда.Вставить(й, 0);
КонецЕсли;
ЧислоРазряда = ЧислаРазряда.Получить(й);
Если ЧислоРазряда = 10 Тогда
ЧислВ16 = "A" + ЧислВ16;
ИначеЕсли ЧислоРазряда = 11 Тогда
ЧислВ16 = "B" + ЧислВ16;
ИначеЕсли ЧислоРазряда = 12 Тогда
ЧислВ16 = "C" + ЧислВ16;
ИначеЕсли ЧислоРазряда = 13 Тогда
ЧислВ16 = "D" + ЧислВ16;
ИначеЕсли ЧислоРазряда = 14 Тогда
ЧислВ16 = "E" + ЧислВ16;
ИначеЕсли ЧислоРазряда = 15 Тогда
ЧислВ16 = "F" + ЧислВ16;
Иначе
ЧислВ16 = Строка(ЧислоРазряда) + ЧислВ16;
КонецЕсли;
КонецЦикла;
Возврат ЧислВ16;
КонецФункции
И для примера обработочка во вложении (платформа 8.2).
Вступайте в нашу телеграмм-группу Инфостарт
