怎样用round四舍五入到小数点后第二位

Question

int(x*100+0.5)/100不过这个四舍五入在浮点数里面不一定能达到你的效果。0.1的四舍五入可能得到的还是 0.099999....

Answer 1

RoundTo(X, -2),不过这和Round都不是真正的四舍五入，是四舍六入，逢五靠双，你仔细看看Help吧。

Answer 2

function Round_(value:Extended):Double ;
begin
  if value>=0 then
    result:=Trunc(100*value+0.5)/100
  else
    result:=Trunc(100*value-0.5)/100;
end;

Answer 3

tigerchina(张师天) 
没有ROUNDTO这个函数

Answer 4

fyje(冬原) 
具体怎么用

Answer 5

pazee(耙子
你的法子不灵啊

Answer 6

function a(Value:real):real;
  begin
     Result:=(Round(Strtofloat(edit1.text)*10000))/10000;
  end;

Answer 7

function a(Value:real):real;
  begin
     Result:=(Round(Value*10000))/10000;
  end;

Answer 8

我記得在VB中Round函數是這樣用的：Round(Integer,要保留的小數位數）,在Delphi中也應該是這樣吧！

Answer 9

当成字符串读
读到小数点后第三位的时候
判断其数字是否大于5，
if >5 then
..
else
..