4舍5入的函数是什么(100分)

U

usa112233

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-31

• #1

在delphi6中，想保留小数点后2位数字，4舍5入的函数是什么？我用了RoundTo和SimpleRoundTo两个函数都有问题。
a:=27686.745
b:=38222.295
RoundTo(a):=27686.74，应为27686.75
SimpleRoundTo(b):=38222.29应为38222.30

 

高

高小五

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-31

• #2

Trunc(a * 100 + 0.5) / 100

 

M

Milpas

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-31

• #3

Round不就行了吗？

 

高

高小五

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-31

• #4

Round不行，用ShowMessage(FloatToStr(round(0.5))) 试一下就知道了

 

E

espp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-31

• #5

delphi 的round 函数有问题的，自己做一个吧

 

C

Cut.fei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-31

• #6

RoundTo(a:=27686.7455,-3):=27686.746的。
就会正确的。
但是：RoundTo(a):=27686.74，应为27686.75 也会发生的。
呵呵，只好你自己添加代码控制了。
如果使用SQL Server 2000 ，你是用于存储。
可以在SQL语句中使用Round的。

 

J

journer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-31

• #7

round采用的是BANKER算法

 

人

人在昆明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-31

• #8

roundto 可以的
但是请注意，不要 去 计算 经过计算过的 数值。
比如：
Const
TestInt: Double = 134.565;
begin
ShowMessage(FloatToStr(RoundTo(TestInt,-2)));
end;
总上，这个函数不能用，自己写吧，建议 字符串 位数 分割 ，呵呵！

 

R

real2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-31

• #9

这很容易解决，通过formatfloat函数吧，比如说 formatfloat('0.00',27686.745)
结果就是你想要的了。

 

Z

zhtx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-31

• #10

看我的帖子,终极答案.
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1049035

 

W

wychero

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-07

• #11

刚刚看楼上那位仁兄的贴子，但我有有个更好的答案。
function MyRound(x:Float,yrecision):Float;
begin
x:=(Power(x,y)+0.5)/Power(x,y)
end;
不知大家意下如何.

 

人

人在昆明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-08

• #12

楼上的 包括各位 测试一下这个（只以楼上的举例，看看你的函数是否通过）
function MyRound(xouble;y:Integer)ouble;
begin
x:=(Power(x,y)+0.5)/Power(x,y)
end;

ShowMessage(FloatToStr(MyRound(1.2345*100,-1)));

 

N

northstart

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-08

• #13

自己写吧!我以前也是自己写的，delphi自带的遇到.5训不好用。
你如要,我有时间贴上来。

 

X

xuejian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-09

• #14

函数是行的。是数据库定义不精确！
如果发现有此类问题请做如下操作：
精确偏移量:=0.00000000001;
round(你的数值*100+精确偏移量)/100;
精确偏移量的值根据你的精确位数可适当调整

 

L

LiChaoHui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-09

• #15

银行家算法是更科学的算法，比四舍五入要好一些

 

B

boyi_cj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-09

• #16

自己写一个函数吧
function RoundDecimal(num: real; i: integer): Real;i表示保留几位小数
var
j:integer;
begin
for j :=0 to i-1 do
Num :=Num*10;
Num :=Round(Num);
for j:=0 to i-1 do
Num :=Num/10;
result :=Num;
end;

 

老

老人家

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-09

• #17

Round

 

I

Imfish

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-09

• #18

delphi5的round 函数有bug
看下面的：
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;