[delphi_begin]

Привет, товарищи! Столкнулся с проблемой при округлении денег!

В общем-то, все просто summa:=SimpleRoundTo(n,-2);

Все бы хорошо, НО! Если n=14.402, например, то на выходе получим 14.4.

Что для математики правильно, а вот для валюты есть разница: 4 цента или 40 центов))

Не подскажите, как решить такую проблемку?

Спасибо всем, кто неравнодушен!!

[Alegun]

Код:

uses math;
...
summa:= RoundTo(14.402, -1); //  = 14.40
...

[delphi_begin]

а вот и нет(( по прежнему 14.4

[delphi_begin]

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

[poli-smen]

Сообщение от delphi_begin

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

Тебе что, в большую сторону нужно округлять?
Если так, то используй функцию SetRoundMode.
Пример:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetRoundMode(rmUp);
  ShowMessage(FloatToStr(RoundTo(14.402, -2)));
end;

p.s. Не забывай только потом возвращать режим округления назад.

[angvelem]

Сообщение от delphi_begin

а вот и нет(( по прежнему 14.4

В математике 14.4 и 14.40 одно и то же, как и в деньгах. 4 цента будет писаться 14.04, учите математику - пригодится.

[delphi_begin]

нет. Округляется все правильно!

Мне просто нужно, чтобы ноль на конце не обрезался.

Т.е. 14.402 до двух знаков =14.40 - это правильно!

Но функция выдает 14.4. Что тоже верно, но не для денег!

Как заставить не убирать ноль на конце, что возвращалось 14.40 ??

Потому что в центах 14.4 и 14.40 - две разные суммы

[delphi_begin]

Это понятно. Но мне нужно именно в виде 14.40. Потому что я не знаю какая сумма будет округляться. 14.351 или 14.402

[poli-smen]

Сообщение от delphi_begin

нет. Округляется все правильно!

Мне просто нужно, чтобы ноль на конце не обрезался.

Т.е. 14.402 до двух знаков =14.40 - это правильно!

Но функция выдает 14.4. Что тоже верно, но не для денег!

Как заставить не убирать ноль на конце, что возвращалось 14.40 ??

Потому что в центах 14.4 и 14.40 - две разные суммы

У тебя какие-то превратные взгляды на дроби. Ты не поверишь, но "14.4" и "14.40" это абсолютно одинаковые значения, и не только с точки зрения математики, а с любой. Т.е. 14.4 это 14 долларов 40 центов, а вовсе не 4 цента как ты думаешь. А чтобы 0 в конце отображался используй процедуры форматирования, например Format.

[angvelem]

Воспользуйтесь функцией FloatToStrF.

[delphi_begin]

Сообщение от poli-smen

У тебя какие-то превратные взгляды на дроби. Ты не поверишь, но "14.4" и "14.40" это абсолютно одинаковые значения, и не только с точки зрения математики, а с любой. Т.е. 14.4 это 14 долларов 40 центов, а вовсе не 4 цента как ты думаешь. А чтобы 0 в конце отображался используй процедуры форматирования, например Format.

Можете привести пример?

[poli-smen]

Сообщение от delphi_begin

Можете привести пример?

Пример:

Код:

ShowMessage(Format('%.2f', [14.402]));

[delphi_begin]

Сообщение от poli-smen

Пример:

Код:

ShowMessage(Format('%.2f', [14.402]));

Воооот! то, что и было нужно! Мне именно вывод нужно было получить такой!
Спасибо большое за помощь!