Currency

← →
oleguslu (2007-07-07 13:13) [0]

Здраствуйте. Скажите пожалуйста как можно указать компилятору параметры округления типа currency. То есть округлять третью цифру после запятой или не брать её в расчёт.

← →
Юрий Зотов © (2007-07-07 13:45) [1]

Компилятору ????

Никак, конечно. Но есть переменная CurrencyDecimals и функции для преобразования Currency в строку нужного формата. Например:
procedure TForm1.FormCreate(Sender: TObject); var C: Currency; begin C := 1234.5678; CurrencyDecimals := 2; Caption := Format("%m", [C]) end;
Подробности см. в справке (разделы "Currency and date/time formatting variables", "String formatting routines" и "Format strings"), а еще в комментариях в модуле SysUtils.

← →
oleguslu (2007-07-07 13:48) [2]

мне нужно не для преобразования в строку а для расчётов

← →
engine © (2007-07-07 13:53) [3]

RoundTo

← →
oleguslu (2007-07-07 13:58) [4]

> engine ©

мне не нужно округление, как раз наоборот

← →
engine © (2007-07-07 14:09) [5]

> [4] oleguslu (07.07.07 13:58)

> мне не нужно округление

> [0] oleguslu (07.07.07 13:13)

> Скажите пожалуйста как можно указать компилятору параметры
> округления

← →
Юрий Зотов © (2007-07-07 14:13) [6]

> oleguslu

> ...как можно указать компилятору параметры округления...
> ...То есть округлять третью цифру...

> мне не нужно округление

Как понять тебя, Саид?
(с) Абдулла.

← →
oleguslu (2007-07-07 14:26) [7]

> Юрий Зотов ©

> engine ©

То есть округлять третью цифру после запятой или не брать её в расчёт
в за висимости от чего-то

← →
Юрий Зотов © (2007-07-07 14:40) [8]

> oleguslu (07.07.07 14:26) [7]

Не брать в расчёт 3-ю цифру означает "округлять до 2-х цифр".

← →
Anatoly Podgoretsky © (2007-07-07 14:46) [9]

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

← →
Asail (2007-07-08 00:14) [10]

> Не брать в расчёт 3-ю цифру означает "округлять до 2-х цифр".

Не правда!
Например, 1.236 можно "округлить" до 1.24, а можно "не брать 3-ю цифру в расчет" и получить 1.23.
В первом случае RoundTo, а во втором можно так:
X := Int(X * 100) / 100

>
> > Не брать в расчёт 3-ю цифру означает "округлять до 2-х
> цифр".
>
> Не правда!

> Например, 1.236 можно "округлить" до 1.24, а можно "не брать
> 3-ю цифру в расчет" и получить 1.23.

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

блин, забибикали бухи, если честно

Чем толще дуб, тем больше лесорубов ;)

> Asail (08.07.07 00:14) [10]

Ай, маладца!
:о)

Currency Найти похожие ветки