Как мне округлить значение до сотых???

← →
Relaxxx (2003-08-27 16:52) [0]

Как мне округлить значение до сотых???
заранее спасибо

← →
Jeer (2003-08-27 18:30) [1]

такое возможно только в визуальном представлении.
Str(..)

← →
Nikky (2003-08-27 18:38) [2]

var value: double

value := round (value*100)/100

← →
paul_k (2003-08-27 19:37) [3]

дельфа странно округляет.Подробнее об этом в хелпе написано. Поэтому round подходит
Приходится отдельную функцию писать
сравниваеш 0,5 с x*100-trunc(x*100)
если больше то result = trunc(x*100)/100
иначе result = (trunc(x*100)+1)/100

← →
Nikky (2003-08-27 19:43) [4]

> paul_k © (27.08.03 19:37) [3]

бред

← →
Тих (2003-08-27 19:48) [5]

Сравнивать оператором "=" опасно. Потому при работе с БД советуют
1) Использовать тип Currency, money и т.п.
2) или decimal
3) или конвертировать в строку
Format(".%3f", [Value]) и сравнивать строки.

← →
paul_k (2003-08-27 19:54) [6]

Nikky
Бред это то что Вы написали.
согласно правилам округления дельфы
44,5=44 45,5=46
для проверки выполните код
showmessage(inttostr( round(44.5))); showmessage(inttostr( round(45.5)));

← →
Nikky (2003-08-27 20:26) [7]

> paul_k © (27.08.03 19:54) [6]
> 44,5=44
> 45,5=46

а как по-вашему он должен работать? 44,5=45? есть же международные стандарты, и round им соответсвует

← →
sniknik (2003-08-27 20:31) [8]

просто рассадник предрассудков :о)))
округление до любого знака RoundTo (правда сама функция производная от Round)
установка математического округления и не только Set8087CW (правда значение которое нужно установить не помню :о)), но если никто его не подскажет, то завтра запостчу (на работе записано))

← →
sniknik (2003-08-27 20:32) [9]

Nikky © (27.08.03 20:26) [7]
> есть же международные стандарты, и round им соответсвует
по умолчанию бугалтерское округление. проверь.

← →
Nikky (2003-08-27 20:39) [10]

> sniknik © (27.08.03 20:32) [9]

> sniknik © (27.08.03 20:31) [8]

F1, выдаваемый за ученость?

← →
sniknik (2003-08-27 20:54) [11]

Nikky © (27.08.03 20:39) [10]
ну а почему бы и нет? кстати раз такой умный может положиш сюда значение Set8087CW(?) которое я не помню, переводящее на математическое округление.
пусть все пользуются.

(еще кстати, себя таким не считаю и F1 пользуюсь весьма активно)

← →
sniknik (2003-08-27 21:00) [12]

хотя ладно здесь на форуме нашол (хорошо всетаки поиск стал работать)
http://delphimaster.net/view/15-1060756297/

обратить особое внимание на DiamondShark © (13.08.03 17:38) [30]

← →
paul_k (2003-08-28 16:04) [13]

2 sniknik ©

Простите за совсем идиотский вопрос, а устанавливать Set8087CW() необходимо каждый раз, или достаточно при запуске программы?

← →
sniknik (2003-08-28 16:34) [14]

наверное лутше каждый раз (точно не скажу, но может кто добавит чего), его же кроме тебя еще могут использовать (бугалтера разные и игрушки (графика) :-)).
я бы точно поставил прямо перед вычислениями (если б понадобилось), да и там всего пара асемблерных команд на скорость не повлияет.

← →
paul_k (2003-08-29 10:24) [15]

Спасибо за совет...
значиччи просто функцию врисовать придется)
типа
function ArRoundTo(const AValue: Double; const ADigit: TRoundToRange): Double; begin Set8087CW($1B72); result:=ROundTo(AValue,ADigit) end; function BuhgRoundTo(const AValue: Double; const ADigit: TRoundToRange): Double; begin Set8087CW($1372); result:=ROundTo(AValue,ADigit) end;
и юзать то что необходимо. я правильно понял?

← →
Anatoly Podgoretsky (2003-08-29 10:38) [16]

Хорошо, но надо сохранять старый Default8087CW и потом восстанавливать, иначе могут быть трудно уловимые глюки.

Как мне округлить значение до сотых??? Найти похожие ветки