подскажите функцию в Delphi округления до 2-х знаков после запятой #169513

Подскажите функцию в Delphi округления до 2-х знаков после запятой.

round

RoundTo кажись

Format(%.2f, [dTemp])

Round округляет до целого попробую

Формат кажись был

Ни че так, что она string возвращает? (format)

Можно и раундом обойтись.

мдя...

Не поленился в справку слазил.... Expression    Value RoundTo(1234567, 3)    1234000 RoundTo(1.234, -2)    1.23 RoundTo(1.235, -2)    1.24 RoundTo(1.245, -2)    1.24

а округл не прокатит? %)

можно поподробнее, как обойтись раундом? я сейчас использую следующее : temp := tarif_obhoz.value * Ploch_all.value; obhoz_S.value := StrToFloat(FloatToStrF(temp,ffFixed,15,2)); работает правильно, только как-то не красиво ...

мдя...

Я чего то не понял????

умножь на 100

у меня на этот оператор выдает ошибку : [Error] dm.pas: Undeclared identifier: 'RoundTO' Delphi - версия 5 может, какую-то, доп.библиотеку нужно подключать?

дитя гор. function RoundTo(const AValue: Double; const ADigit: TRoundToRange): Double; var  LFactor: Double; begin  LFactor := IntPower(10, ADigit);  Result := Round(AValue / LFactor) * LFactor; end;

ага, вы бухам попробуйте такое округление подсунуть, писать надо

SetRoundMode и не надо ничего писать

Unit Math?

работает правильно, проверено: function RoundEx( X: Double; Precision : Integer ): Double; {Precision : 1 - до целых, 10 - до десятых, 100 - до сотых...} var  ScaledFractPart, Temp : Double; begin  ScaledFractPart := Frac(X)*Precision;  Temp := Frac(ScaledFractPart);  ScaledFractPart := Int(ScaledFractPart);  if Temp >= 0.5 then ScaledFractPart := ScaledFractPart + 1;  if Temp <= -0.5 then ScaledFractPart := ScaledFractPart - 1;  RoundEx := Int(X) + ScaledFractPart/Precision; end;