powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Округление
6 сообщений из 6, страница 1 из 1
Округление
    #39472975
Большая проблема, очень нужна помощь!( Не могу справиться с округлением. Принцип должен быть такой, берем какой-то процент от числа, без округления доводим до трех знаков до запятой, а после округляем.
Пробовала делать так SimpleRoundTo(RoundTo(((sumv /100)*razmer_ud), -3),-2);, в некоторых случаях работает неправильно
...
Рейтинг: 0 / 0
Округление
    #39472977
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Trunc?
...
Рейтинг: 0 / 0
Округление
    #39472987
Фотография JayDi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Давай пример в цифрах -- что откуда берется, как считается и что должно получится в итоге.
...
Рейтинг: 0 / 0
Округление
    #39472991
JaDi,

Например, 86653.15 взять 10 процентов = 8665.32, должно быть так, а считает 8665.31
...
Рейтинг: 0 / 0
Округление
    #39472997
Фотография JayDi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Кареглазая_зая,

Может потому, что RoundTo -- это банковское округление, когда 0.5 округляется то в 1, то в 0 к ближайшему четному результату (например, 4.5 -> 4 и 5.5 -> 6).

А вот SimpleRoundTo -- как раз то самое "школьное" округление к большему (4.5 -> 5; 5.5 -> 6).
...
Рейтинг: 0 / 0
Округление
    #39473485
SimplTsar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Кареглазая_зая,
а написать одну строку кода слабо :)
Result := Int(Sum * 0.1 * 100 + 0.5) / 100
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Округление
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]