dephi的bug?四舍五入的问题! (来源于大富翁)
来自: wooder, 时间: 2004-02-07 2:00:00, ID: 2441045
做个零售系统,打折后一般计算金额到分,但一般都不收分,
因此要把分四舍五入,我想用formatfloat来转换一下.
但这样试,即只要用浮点型变量碰巧取到113.05这样分是5的值,
通formatfloat得到的值总是113.0,即没有四舍五入.但如果不
用变量,直接写formatfloat('0.0',113.05)获得的值又是113.1,
看来是取浮点变量就不行,那位大侠测一下.
procedure TForm1.Button1Click(Sender: TObject);
var Lf_TempSum :real;
begin
Lf_TempSum := 113.05;
Edit1.text :=formatfloat('0.0',Lf_TempSum);
end;
不知有没有碰到要四舍五入的问题的,为什么roundto对5
不四舍五入的?比如roundto(12.235,-2),得到的值就是12.23
奇怪.
来自: qince, 时间: 2004-02-07 2:05:00, ID: 2441047
是呀，你再试试：
var Lf_TempSum :real;
begin
Lf_TempSum := 113.05;
Edit1.text :=FormatCurr('0.0',Lf_TempSum);
end;
来自: qince, 时间: 2004-02-07 2:09:00, ID: 2441048
BORLAND的ROUND函数只能取整,而且是统计学上的四舍五入(奇数进,偶数不进), [:D]
应用中很不方便,大家提出了很多解决方案,综合起来主要有以下几种:
1.先换算成整数再用round处理,再换算回原来的数据
存在问题:round的取整算法和常用的不一样
2.先换算成整数再+0.5,再用INT处理,再换算回原来的数据
存在问题:很多人编写的函数没有处理负数
3.用FORMATFLOAT函数处理
存在问题:一般的数据均能处理,也是很多人认为的正确的答案,
但如果处理的是运算结果,因运算结果是浮点数,可能存在误差,则结果就不对.
例:显示是1.085,但运算结果可能是1.08499999,则取两位小数的结果为1.08
function RoundFloat(f:double;i:integer):double;
var
s:string;
ef:extended;
begin
s:='#.'+StringOfChar('0',i);
ef:=StrToFloat(FloatToStr(f));//防止浮点运算的误差
result:=StrToFloat(FormatFloat(s,ef));
end;
来自: tangle, 时间: 2004-02-07 3:03:00, ID: 2441054
在最近版本的Delphi Pascal 编译器中，Round 函数是以 CPU 的 FPU (浮点部件) 处理器为基础的。这种处理器采用了所谓的 "银行家舍入法"，即对中间值 (如 5.5、6.5) 实施Round函数时，处理器根据小数点前数字的奇、偶性来确定舍入与否，如 5.5 Round 结果为 6，而 6.5 Round 结果也为6, 因为 6 是偶数。
-以上出自《Essential_Pascal》，希望对你有帮助
来自: andy263, 时间: 2004-02-07 10:53:00, ID: 2441372
统计学上的四舍五入 误差更小！
来自: talent002, 时间: 2004-02-07 13:44:00, ID: 2441579
对delphi 就是用“银行家舍入法”——奇进偶不进，总是返回一个偶数的。如果要解决这个问题的话就自己编个函数来解决吧。
来自: qaz2003, 时间: 2004-02-07 14:54:00, ID: 2441671
终极答案
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1049035
function myround(s:real;non:integer):real;
var
roundi:integer;
j:double;
begin
j:=s;
for roundi:=10 downto non do
begin
j:=j+1/power(10,roundi+2);
j:=roundto(j,-roundi);
end;
result:=j;
end;
精确到元：
Function FRound(x:Extended):Int64;
var
Temp:Extended;
begin
Temp:=Frac(x);
if temp>=0.5 then
Result:=Trunc(x)+1
else
Result:=Trunc(x);
end;
来自: app2001, 时间: 2004-02-07 15:04:00, ID: 2441694
Delphi的四舍五入函数Round有BUG，无法正常工作。
对于XXX.5的情况，整数部分是奇数，那么会Round Up，偶数会Round Down，例如：
x:= Round(17.5) = x = 18
x:= Round(12.5) = x = 12
请使用下面的函数代替Round：
function DoRound(Value: Extended): Int64;
procedure Set8087CW(NewCW: Word);
asm
MOV Default8087CW,AX
FNCLEX
FLDCW Default8087CW
end;
const
RoundUpCW = $1B32;
var
OldCW : Word;
begin
OldCW := Default8087CW;
try
Set8087CW(RoundUpCW);
Result := Round(Value);
finally
Set8087CW(OldCW);
end;
end;
这个资料你试一下看看？
