чем округлить 690.005 что бы получилось 690.01, а не 690.00 ?

← →
Prohodil Mimo © (2005-02-15 17:21) [0]

Это только пример, не докапываться.

Видел недавно ветку с ответом на это, но что-то найти не могу.

← →
Johnmen © (2005-02-15 17:23) [1]

Арифметической округлялкой...

← →
Prohodil Mimo © (2005-02-15 17:26) [2]

Johnmen © (15.02.05 17:23) [1]
А не будете ли Вы так любезны произнести имя этой функции вслух? :о)

← →
juice (2005-02-15 17:28) [3]

Умножить на 100, округлить, поделить на 100

← →
Prohodil Mimo © (2005-02-15 17:32) [4]

А финансовых функций нет на эту тему?
Или я не нашол, или в Д3 такой ещё не было. За последующие я не знаю.

← →
Prohodil Mimo © (2005-02-15 17:38) [5]

juice (15.02.05 17:28) [3]
этот вариант я и раньше роверил, но он не в ту сторону округляет

← →
BiN © (2005-02-15 17:49) [6]

умножить на 100
прибавить 0.5
отбросить дробную часть

← →
BiN © (2005-02-15 17:52) [7]

нет, не то

← →
Marser © (2005-02-15 17:55) [8]

Cм. RoundTo, модуль Math

← →
Prohodil Mimo © (2005-02-15 17:56) [9]

Переменная была типа currency, изменил на Extended - проблема исчезла.

← →
PZ (2005-02-15 18:00) [10]

ShowMessage("X = "+FormatFloat("0.00", 690.005));
Получишь ровно 690.01

← →
PZ (2005-02-15 18:08) [11]

А если надо не строку, а число получить, то:

procedure TForm1.Button1Click(Sender: TObject);
Var
X : Real;
begin
X := StrToFloat(FormatFloat("0.00", 690.005));
end;

PZ (15.02.05 18:00) [10]

твой вариант срабатывает с Сurrency, а с Real - выдаёт 690.00 :о)

-----------

Так выходит лучше использовать Extended?

← →
PZ (2005-02-15 18:33) [13]

Я проверял на Delphi 7 - работает правильно.
Но надо делать так, как тебе удобнее, естественно.
Успехов.

посмотри ещё Math.SimpleRoundTo

http://www.ibase.ru/devinfo/round.htm

чем округлить 690.005 что бы получилось 690.01, а не 690.00 ? Найти похожие ветки