怎么四舍五入

如何四舍五入
dd1=6.55
dd2=14264.3
dd:=dd1 * dd2;
dd:=strtofloat(formatfloat('0.##',dd));
得到93431.16(实际是93431.165,但最后一位5没有四舍五入进1,为什么)

然而
dd1=6.55
dd2=14264.3001
dd:=dd1 * dd2;
dd:=strtofloat(formatfloat('0.##',dd));
得到93431.17(实际是93431.166,最后一位6进1,为什么)

如何在末位是5时进一位

[解决办法]
uses Math;

function RoundingOff(const Value: Extended; const Digit: integer): Extended;
var
vLFactor: Extended;
begin
vLFactor := IntPower(10, Digit + 1);
Result := Trunc((Value * vLFactor + 5) / 10) / IntPower(10, Digit);
end;

[解决办法]

探讨
math.roundto(0.12345,-2)

[解决办法]
dd1=6.55
dd2=14264.3
dd:=dd1 * dd2;
dd:=trunk(dd*100+0.5)/100
[解决办法]
不好意思，打错了字母了：
dd1=6.55
dd2=14264.3
dd:=dd1 * dd2;
dd:=trunc(dd*100+0.5)/100
[解决办法]

探讨

引用:
uses Math;

function RoundingOff(const Value: Extended; const Digit: integer): Extended;
var
vLFactor: Extended;
begin
vLFactor := IntPower(10, Digit + 1);
Result := Tru……

[解决办法]
FormatFloat('0.##',dd+0.0000001);
[解决办法]

探讨
引用:
math.roundto(0.12345,-2)

注意这个可是四舍六入法

[解决办法]
RoundTo函数，搭配 SetRoundMode使用，

SetRoundMode设置舍入方式
roundto执行舍入操作。

[解决办法]
只保留两位： value为传入的值

Delphi(Pascal) code

  if value&gt;=0 then     result:=int(value*100+0.5)/100  else     result:=int(value*100-0.5)/100
[解决办法]
Delphi(Pascal) code   str(strtoreal(dd):x:y,dd);  x=字段最大长度,y=取多少小数位    dd:=trim(dd);
[解决办法]
探讨
引用:
引用:
引用:
math.roundto(0.12345,-2)

注意 这个可是 四舍六入法

math.SimpleRoundTo(0.125,-2)试一下


试了不行,四舍六入

[解决办法]
唉，还是把俺多年的存货贡献出来吧。久经考验呀
function comm_Round(dFigure:double;iDecimals : integer): double; //四舍五入函数；
var
 iIER : integer;  //乘数
 i : cardinal;
 dTmp : double;
begin
 iIER := 1;
 for i:=1 to iDecimals do
     iIER := iIER*10;

 dTmp := dFigure * iIER;
 if dFigure&gt;0 then //正数
 begin
    if frac(dTmp)&lt;0.5 then
       dTmp := Trunc(dTmp)
    else
       dTmp := Trunc(dTmp) + 1;
    result :=  dTmp/iIER;
 end
 else  //非正数
 begin
    if frac(dTmp)&gt;-0.5 then
       dTmp := Trunc(dTmp)
    else
       dTmp := Trunc(dTmp) - 1;
    result :=  dTmp/iIER;
 end;
end;

[解决办法]
探讨
dd1=6.55
dd2=14264.3
  dd:=dd1 * dd2;
  dd:=strtofloat(formatfloat('0.##',dd)); 
 
得到93431.16(实际是93431.165,但最后一位5没有四舍五入进1,为什么)

然而
dd1=6.55
dd2=14264.3001
  dd:=dd1 * dd2;
  dd:=strtofloat(form……

[解决办法]
探讨
uses Math;

function RoundingOff(const Value: Extended; const Digit: integer): Extended;
var
  vLFactor: Extended;
begin
  vLFactor := IntPower(10, Digit + 1);
  Result := Trunc((Value * vLFact……

[解决办法]







四舍六入。变通一下就就行啦！！！！！！！！！
math.roundto(0.12345 + 0.001, -2)


[解决办法]
探讨
dd1=6.55
dd2=14264.3
  dd:=dd1 * dd2;
  dd:=strtofloat(formatfloat('0.##',dd));
得到93431.16(实际是93431.165,但最后一位5没有四舍五入进1,为什么)

然而
dd1=6.55
dd2=14264.3001
  dd:=dd1 * dd2;
  dd:=strtofloat(form……

[解决办法]
round()  四舍五入；
trunc() 不四舍五入；
ceil()  有余数就进1.不过要在uses中加入math.

你自己试试吧。
[解决办法]
procedure TForm1.Edit1Exit(Sender: TObject);  //四舍五入2位
var
ab:real;
dd,cc,ee:real;
begin
ab :=strtofloat(edit1.Text);
edit2.Text :=floattostr(RoundingOff(ab,2));
dd:=((ab*1000+5)/10);
cc :=Trunc(dd);    
ee :=cc/100;
edit4.text :=floattostr(ee);
end;
end.

我也遇到这个问题，所以刚做了一个，可以的久经考验
[解决办法]
原数扩大100倍后加上0.5，然后用round取结果，将结果再除以100。
绝对没有问题的算法，超简单的东西。

怎么四舍五入

热点推荐