delphi中有四舍五入函数吗?(25分)

卷起千堆雪tyn · 2001-10-15

Round();

myxy · 2001-10-15

下面是保岛国整数的四舍五入函数，如果要保岛国n位小数，只需简单修改。
function myround(x : extended) : extended;
begin
if (int(x)*10+5) > int(x*10) then
begin
result := floor(x);
end else
begin
result := ceil(x);
end;
end;

mxsbt2 · 2001-10-15

它四舍五入是行,不过我想要的是按任意位数小数四舍五入

zwma · 2001-10-15

function myround(x : extended,y:integer) : extended;
integer z;
begin
z=1;
while y>1 do
begin
z=z*10;
y=y-1;
end
result=int((x*z+0.5)/z);
end;

zzf888 · 2001-11-19

请大家注意，round只能做五舍六入！！！！

shaofun · 2001-11-19

FloatToStrF(StrToFloat(a),ffFixed,n,m)

托尼 · 2001-11-19

FloatToStrF(StrToFloat(a),ffFixed,n,m)
是可以的
但好像的先用Trunc('float'*100+0.5)/100

悠闲 · 2002-04-16

FloatToStr(int((a)*100)/100)

Blue_Fire · 2002-04-16

Just try the function FormatFloat.Its define is:
function FormatFloat(format:string; arc:real):string;
for example:
r1:=FormatFloat('00.00',100); //r1:=100.00
r2:=FormatFloat('00',0.8); //r2:=1
r3:=FormatFloat('00.0',100.123456789); //r3:=100.1
r4:=FormatFloat('00.0000'.100.123456789); //r4:=100.1234
for most infomation, you can turn to delphi online help.
It's just my suggest, you can agree with it,or do nothing with it!

wlmmlw · 2002-04-16

formate('%.2f',[youfloat]);

binzi · 2002-04-16

用format函数格式化就可以了

zhtx · 2002-04-16

zwma:你的函数如何处理负数?

delphi中有四舍五入函数吗?(25分)

mxsbt2

Unregistered / Unconfirmed

卷起千堆雪tyn

Unregistered / Unconfirmed

myxy

Unregistered / Unconfirmed

mxsbt2

Unregistered / Unconfirmed

zwma

Unregistered / Unconfirmed

zzf888

Unregistered / Unconfirmed

shaofun

Unregistered / Unconfirmed

托尼

Unregistered / Unconfirmed

悠闲

Unregistered / Unconfirmed

Blue_Fire

Unregistered / Unconfirmed

wlmmlw

Unregistered / Unconfirmed

binzi

Unregistered / Unconfirmed

zhtx

Unregistered / Unconfirmed

Similar threads