RoundTo 函数如何使用，急。(50分)

T

Tony_comm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-22

• #1

我想调用 RoundTo()做四舍五入，但是不知道这种函数如何使用。
typedef Word TRoundToRange;
extern PACKAGEdo
uble __fastcall RoundTo(constdo
uble AValue, const TRoundToRange ADigit);

 

A

andy263

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-22

• #2

用这个是通常意义的4社5入
function SimpleRoundTo(const AValue:do
uble;
const ADigit: TRoundToRange = -2):do
uble;
RoundTo使用的是银行家算法，一种舍入误差更小的算法
不同于四舍五入

 

T

Tony_comm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-22

• #3

to andy263 请问，我做四舍五入应该用那个函数啊，最好系统自带的。

 

善

善凉的狼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-22

• #4

同意

 

寻

寻找

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-22

• #5

uses math
如
a=1.12345,b
b=roundto(a,-2)
b=1.12
b=roundto(a,0)
b=1

 

A

andy263

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-22

• #6

没有，不过可以通过Trunc()和Round()间接实现
例：copy(floattostr(round(123.23456*100)/100),1,5);

 

T

Tony_comm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-22

• #7

to:andy263 您用的是Delphi 吧，我用bcb6 没有Round()这个函数啊。

 

T

Tony_comm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-23

• #8

我最后还是没有找到现成的可用函数，只好自己写了一个。[]

 

T

Tony_comm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-23

• #9

接受答案。