5,388
社区成员
发帖
与我相关
我的任务
分享计算的精度问题！
怎样将计算的结果精确到小数点后两位，用format函数是四舍五入的所以小数点后的第二位不准确，我想要截到小数点后两位，不要四舍五入。请问用什么办法可以解决？谢了！
...全文
请发表友善的回复…
发表回复
dyxfkj 2003-12-23
- 打赏
- 举报
楼上对了！
yurenjf 2003-12-23
- 打赏
- 举报
function formatReal(f:real):real;
var
s:string;
f:real;
i:integer;
begin
s:=floattostr(f);
i:=(pos('.',s);
if i=0 then
s:=s+'.00'
else
s := copy(s,1, pos('.',s)+2);
f := strtofloat(s);
result:= f;
end;
var
s:string;
f:real;
i:integer;
begin
s:=floattostr(f);
i:=(pos('.',s);
if i=0 then
s:=s+'.00'
else
s := copy(s,1, pos('.',s)+2);
f := strtofloat(s);
result:= f;
end;
yurenjf 2003-12-23
- 打赏
- 举报
var
s:string;
f:real;
//...
s:=floattostr(f);
s := copy(s,1, pos('.',s)+2);
f := strtofloat(s);
//...
s:string;
f:real;
//...
s:=floattostr(f);
s := copy(s,1, pos('.',s)+2);
f := strtofloat(s);
//...
