Всем привет! Игра: самый извращенный способ преобразования числа из отрицательного в его положительный эквивалент в 1С! Простейший пример:

...
Число = -253;
ПоложительноеЧисло = -Число;
...

Число(СтрЗаменить(Формат(Число, "ЧГ"),"-",""))

(1) ..ля..

(1) Даже группировка предусмотрена - не уронишь!

Число(Сред(Число, 2))

SQRT(Число*Число)

//Если целое

Рез = 0;

Если Число>0 Тогда
    Для Идн=1 по Число Цикл
        Рез=Рез-1;
    КонецЦикла;
Иначе
    Для Идн=Число по -1 Цикл
        Рез=Рез+1;
    КонецЦикла;
КонецЕсли;

Думаю ничего извращенней цикла уже не придумать

Число = -253;
ПоложительноеЧисло = Число-2*Число;

(7) рекурсия ещё

Только если запросами или через СКД ну или банально ВК

https://wiseadvice-it.ru/o-kompanii/blog/articles/modul-chisla-v-1s-8-3/

(7) // Считаем число 8-битным целым со знаком
Если Параметр = -32768 Тогда Возврат 32768;
ИначеЕсли Параметр = -32767 Тогда  Возврат 32767;
... продолжишь сам

ИначеЕсли Параметр = 0 Тогда  Возврат 0;
Иначе Возврат Параметр;
КонецЕсли;

Не пробовал, но наверняка можно декларировать в XML положительное число, туда его выгрузить и прочитать обратно.
Ну еще элементам списка значений задать тип положительное число, и тоже самое как с XML.

для целых
(('0001-01-01'- ЧислоН)-'0001-01-01')  + (('0001-01-01'+ ЧислоН)-'0001-01-01')

Число1 = -253;

Эксель = Новый COMОбъект("Excel.Application");
Эксель.Visible = 0;
Книга = Эксель.WorkBooks.Add();
Лист = Книга.WorkSheets.Add();
Ячейка = Лист.Cells(1, 1);
Ячейка.Formula = "=ABS(" + Формат(Число1, "ЧГ=0") + ")";

Число2 = Ячейка.Value;

Книга.Close();                                              
Эксель.Quit();
Эксель = Неопределено;

Число = -253;
ПоложительноеЧисло = Макс(Число, -Число);

(16) вы не поняли задачу

Запрос = Новый Запрос("ВЫБРАТЬ -&Число КАК Число");
Запрос.УстановитьПараметр("Число", Число);
    
Выборка = Запрос.Выполнить().Выбрать();
Число = ?(Выборка.Следующий(), Выборка.Число, Число);

из серии Попытка...Исключение

для целых

Попытка
м= новый массив(ЧислоН);
ПоложительноеЧисло= ЧислоН;
Исключение
ПоложительноеЧисло= -ЧислоН;
конецПопытки;

Число = -253;
    
    табЗнач = Новый ТаблицаЗначений;
    табЗнач.Колонки.Добавить("НашеЧисло", Новый ОписаниеТипов("Число"));
    новСтр = табЗнач.Добавить();    
    новСтр.нашеЧисло = Число;
    
    Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ
        |    НашаТабличка.НашеЧисло КАК НашеЧисло
        |ПОМЕСТИТЬ ВТ_ИзначальноеЧисло
        |ИЗ
        |    &НашаТабличка КАК НашаТабличка
        |;
        |
        |////////////////////////////////////////////////////////////////////////////////
        |ВЫБРАТЬ
        |    ПРЕДСТАВЛЕНИЕ(ВТ_ИзначальноеЧисло.НашеЧисло) КАК ЧислоСтрокой
        |ИЗ
        |    ВТ_ИзначальноеЧисло КАК ВТ_ИзначальноеЧисло";
    
    Запрос.УстановитьПараметр("НашаТабличка", табЗнач);
    
    Результат = Запрос.Выполнить();
    
    Выборка = Результат.Выбрать();
    
    Выборка.Следующий();    
    
    ЧислоСтрокой = Выборка.ЧислоСтрокой;
    
    ДлинаСтроки = СтрДлина(ЧислоСтрокой);
    
        
    Запрос.Текст =
        "ВЫБРАТЬ
        |    ПОДСТРОКА(&ЧислоСтрокой, 2, &ДлинаСтроки) КАК СтрокаЧисла";
    
    Запрос.УстановитьПараметр("ДлинаСтроки", ДлинаСтроки);
    Запрос.УстановитьПараметр("ЧислоСтрокой", ЧислоСтрокой);
    
    Результат = Запрос.Выполнить();
    
    Выборка = Результат.Выбрать();
    
    Выборка.Следующий();
    
    КонечноеЧисло = Число(Выборка.СтрокаЧисла);
    
    Сообщить(КонечноеЧисло);

(0) Нужно сформировать соответсвие отрицательных и положительных чисел, и по нему легко можно будет вычислить нужное число