Округление всегда в бОльшую сторону

Форум Программирование Общие вопросы программирования (Dev)

Платформа 1С v8.3

1. adaviya 22.07.13 15:04 Сейчас в теме

Привет!
Кто-нибудь делал округление всегда в бОльшую сторону?
например, если число 10.1 - должно быть 11.
спасибо!

По теме из базы знаний

Округление всегда в меньшую сторону в документе "Зарплата к выплате организаций"
Остатки отпусков в 1С:ЗУП 2.5
Округление суммы документа с учетом скидок для конфигурации УТ 11 (версия 11.2 и новее)
Атол ККТ: Онлайн 54-ФЗ (ДТО 10.4) для 1С 8.1 УТ 10.3, Розница 1, УПП 1.3, без изменения конфигурации
SynchroWB — интеграция 1С и Wildberries: автоматизация заказов и остатков по API с УТ, КА, ERP, УНФ, Розница 3

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. tolyan_ekb 80 22.07.13 15:07 Сейчас в теме

(1) adaviya, дарю

если сумма-Цел(сумма)>0 тогда сумма=сумма+1;

3. Walker.pro 8 22.07.13 15:45 Сейчас в теме

(2) tolyan_ekb,
если сумма-Цел(сумма)>0 тогда сумма=Цел(сумма)+1;

Ответить

4. tolyan_ekb 80 22.07.13 15:52 Сейчас в теме

(3) Walker.pro, да малость ошибься

7. YNik 22.07.13 21:04 Сейчас в теме

(1) adaviya,
Сумма = Окр(Сумма+0.5,0,0);

Ответить 5

8. brunhilda 15.05.19 06:47 Сейчас в теме

(7) вот это крутое решение! спасибо

9. Merkalov 12 18.09.19 10:23 Сейчас в теме

(7) Если сумма = 10, тогда получаем 11, что является ошибкой.

10. spacecraft 18.09.19 10:29 Сейчас в теме

(9)

Если сумма = 10, тогда получаем 11, что является ошибкой.

это где так будет считать? Код в (7) для суммы 10 посчитает округление = 10. Параметры там не просто так указаны.

38. Риник 15 20.05.23 15:09 Сейчас в теме

(7) метод нерабочий

если Сумма = 10, то получится 11.

42. alexis_g 18.09.23 06:12 Сейчас в теме

(38) Вы прежде чем что-то сказать проверяйте хотя бы в табло:

Окр(10+0.5,0,0)

Результат
10

5. midavp 1 22.07.13 16:42 Сейчас в теме

ЦелаяЧасть = Цел(Число);
ДробнаяЧасть = Число - ЦелаяЧасть;
КонечноеЧисло = ?(ДробнаяЧасть=0,ЦелаяЧасть,ЦелаяЧасть +1);

6. adaviya 22.07.13 17:07 Сейчас в теме

спасибо! Все гениальное просто!

11. sondarium 177 23.12.19 11:09 Сейчас в теме

Функция ОкрВсегдаВверх(ВходЧисло, РазрядОкругления)
    
    Возврат ?(ТипЗнч(ВходЧисло) = Тип("Число"), Окр(ВходЧисло + 5 * Pow(10, -РазрядОкругления - 1), РазрядОкругления, РежимОкругления.Окр15как10), Неопределено);
    
    //Если ТипЗнч(ВходЧисло) <> Тип("Число") Тогда
    //    Возврат Неопределено;
    //КонецЕсли;
    //
    //Прибавка = 5 * Pow(10, -РазрядОкругления - 1); // 5 * 10^(-x - 1)
    //Результат = Окр(ВходЧисло + Прибавка, РазрядОкругления, РежимОкругления.Окр15как10);
    //
    //Возврат Результат;
    
КонецФункции

Показать

Ответить

12. anig99 2855 09.12.20 20:34 Сейчас в теме

Окр(Число + 0.5, 0, РежимОкругления.Окр15как10);

13. napan 36 15.03.23 15:29 Сейчас в теме

(12)

РежимОкругления.Окр15как10);

Не правильно, пример: 13,4, получаем 13,4+0,5 = 13.9 Окр в меньшую сторону получится 13, а необходимо получить 14!

14. bdennis 15.03.23 15:39 Сейчас в теме

(13) Правильно. 13.9 при РежимОкругления.Окр15как10 будет округлено до 14.

15. napan 36 15.03.23 19:14 Сейчас в теме

(14)

Окр15как10

Правильно: Окр15как20 , а не Окр15как10 - это же в меньшую сторону.

16. spacecraft 15.03.23 19:30 Сейчас в теме

(15) попробуйте в отладке хотя бы. Этот параметр относится исключительно к цифре 5 на определенной позиции. На стальные цифры не оказывает никакого влияния.

17. bdennis 15.03.23 20:56 Сейчас в теме

(15) при Окр15как20 13 + 0.5 станет 14, что странно. Правильно Окр15как10.

19. пользователь 15.03.23 21:49

Сообщение было скрыто модератором.

...

20. ut2k5 15 20.03.23 15:36 Сейчас в теме

(19) что мешает проверочную обработку написать и удостовериться, что работает:

Сч = 0;
    Пока Сч < 24 Цикл
        
        Результат    = Окр(Сч + 0.5, 0, РежимОкругления.Окр15как10);
        ТекстШаблона            = "%1 = %2";
        СообщениеПользователю    = СтрШаблон(ТекстШаблона, Сч, Результат);
        ОбщегоНазначения.СообщитьПользователю(СообщениеПользователю);
        
        Сч    = Сч + 0.1;
                
    КонецЦикла;

Показать

21. пользователь 20.03.23 15:57

Сообщение было скрыто модератором.

...

22. Dr.HiHi 2 20.03.23 16:12 Сейчас в теме

(20) что за магия?? %)))
целое число

Окр(Число + 0.499999)

до 1-го знакак после запятой

Окр(Число + 0.049999, 1)

до 2-х

Окр(Число + 0.004999, 2)

длина числа 0.499999.. - зависит от входящего числа
если, например, нужно целое число, а на вход дали 1.001 и написать

Окр(Число + 0.49)

, но на выходе будет 1, но если написать

Окр(Число + 0.499)

, то сработает ;))

24. пользователь 20.03.23 16:40

Сообщение было скрыто модератором.

...

27. Dr.HiHi 2 20.03.23 17:14 Сейчас в теме

(24) в смысле универсальный??
а чем не универсальный??
универсального не будет, так как есть один нюанса и это разрядность
если передавать разрядность, то тогда что-то типа этого

Окр(Число + 0.4999999999999 / ?(разрядность > 0, 10 * разрядность, 1), разрядность)

да и в запросах, если нужно целое число, то всегда спасает + 0.499999, так как товар не может быть половинкой
при округлении, например, цены в запросе с 2-мя знаками, то тоже спасает
а какой-то универсальный механизм с каким-то построчным окгруглением число - то это жесть

28. пользователь 20.03.23 17:19

Сообщение было скрыто модератором.

...

29. Dr.HiHi 2 20.03.23 20:20 Сейчас в теме

(28) тогда таких людей называют душнилами %))
есть шаблоны корректного решения, а реализации опытный программист сам придумает как использовать метод расчета...
или это будет метод, где подается одно число и параметры, относительно которых нужно расчитать
или это будет использоваться в запросе, где происходят логистические вычисления для планирования

30. пользователь 20.03.23 21:06

Сообщение было скрыто модератором.

...

31. Dr.HiHi 2 20.03.23 22:29 Сейчас в теме

(30) ну тогда жду правильный универсальный вариант от "гуру" для запроса

32. пользователь 20.03.23 23:19

Сообщение было скрыто модератором.

...

33. Dr.HiHi 2 20.03.23 23:48 Сейчас в теме

(32) "гуру" обосрался %))
садитесь 2
p.s. не способны помочь, то хоть не мешайте остальным помогать

а теперь подумайте о производительности вычисления
и что-то я не увидел универсальности в запросе, не хардкор, а тем более производительности %))

почитайте что такое хардкор, а что не является хардкором
почитайте о тяжелости вычислений... хотя бы про +, -, *, /

p.s. простите, но я не достоен обучаться у такого "гуру"
дискуссия окончена.

34. Dr.HiHi 2 21.03.23 00:03 Сейчас в теме

(32) и еще в догонку
по вашему "идеальному" расчету

исходное -9
всегда в большую сторону
разрядность -2
результат -100

как так??
на вход -9, и в большую сторону, а в итоге -100
вопрос... что больше -9 или -100??

35. пользователь 21.03.23 00:48

Сообщение было скрыто модератором.

...

39. Риник 15 20.05.23 15:11 Сейчас в теме

(20) да можно просто в отладчике проверить и убедиться, что не работает. Не работает с 10, 10.6, 10.7, 10.8

Прикрепленные файлы:

40. spacecraft 20.05.23 15:49 Сейчас в теме

(37) это с какой такой логики целое число 10 должно округляться до 11?
Так что все верно, что 10 округляется до 10.
(39) все что между 10 и 11 округляется до 11. Целые числа не должны изменяться. При условии округления до целых чисел.

41. Риник 15 20.05.23 16:19 Сейчас в теме

(40) да, вы правы, погорячился)

37. Риник 15 20.05.23 15:08 Сейчас в теме

(12)

Окр(Число + 0.5, 0, РежимОкругления.Окр15как10);

Число = 10;

10+0.5 = 10.5, округляем 15 как 10 получаем 10.

Метод нерабочий

18. SlavaKron 15.03.23 21:24 Сейчас в теме

Округление в 1С – просто бессмертная задача.

23. Romeo_1c_programmer 34 20.03.23 16:34 Сейчас в теме

ЧислоХ = ?(Цел(ЧислоХ) = ЧислоХ, ЧислоХ, Цел(ЧислоХ)+1);

25. пользователь 20.03.23 16:40

Сообщение было скрыто модератором.

...

26. Romeo_1c_programmer 34 20.03.23 16:53 Сейчас в теме

(25)тогда - как было предложено в (11)

36. user856012 14 21.03.23 01:32 Сейчас в теме

https://www.youtube.com/watch?v=8M89_eNRZ0Y

43. 13kawaii13 13.10.23 17:19 Сейчас в теме

(37)

Окр(Число + 0.5, 0, РежимОкругления.Окр15как10);

Все работает

На скрине табло с примерами
Окр(10 + 0.5, 0, РежимОкругления.Окр15как10) = 10
Окр(10.01 + 0.5, 0, РежимОкругления.Окр15как10) = 11
Окр(10.99 + 0.5, 0, РежимОкругления.Окр15как10) = 11

Прикрепленные файлы:

44. user1333968 29.03.24 11:42 Сейчас в теме

Могу предложить свой вариант округления до целого всегда в большую сторону:

РезультатОкругления = Окр(Число,0);
Если Окр(Число,1)>Окр(Число,0) Тогда
        РезультатОкругления = РезультатОкругления +1
КонецЕсли;

В запросе аналогичный алгоритм с помощью ВЫРАЗИТЬ и ВЫБОР...

45. spacecraft 29.03.24 13:13 Сейчас в теме

(44) что будет для 1,01?

46. user1333968 29.03.24 14:12 Сейчас в теме

Будет 1. Вы правы, некорректно получилось...

47. MrFlanker 240 29.01.25 07:42 Сейчас в теме

На дворе 2025 год а функция округления вверх не завезли :) Чаще всего нужна вот такая без учета знака.

Функция   ОкрВ(Число) // Округляет число всегда вверх (без учета знака)
    // 0         = 0
    // 1          = 1
    // 1.0001   = 2
    // 1.9999   = 2
    // -1         = -1
    // -1.0001    = -2
    // -1.9999    = -2
    
    Если Число = Цел(Число) Тогда Возврат Число КонецЕсли;
    
    Если Число>0 Тогда
        Возврат Цел(Число)+1;
    Иначе
        Возврат Цел(Число)-1;
    КонецЕсли;
    
КонецФункции

Показать

Оставьте свое сообщение

E-mail: