一个小问题(50分)

S

seafox

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-27

• #1

怎么截取小数点后2位数把多余的去掉
例如：124.2331 截取为124.23
有四舍五入的函数 例如：124.368 截取为124.37

 

T

tonychuchu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-27

• #2

floattostrf()

 

雪

雪中漫步

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-27

• #3

formatefloat('0.00',fnum)

 

沙

沙_儿

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-27

• #4

现写了一个函数，你试试把，有错误改改
function getNum(Mynum1):Float;
var str1,Str2:String;
ResFloat:Float;
begin
str1:=floattostr(myNum1);
Coun:=pos(str1,'.');
if coun>0 then
begin
mynum2:=strtoint(copy(str1,coun+1,1));
if mynum2>4 then
begin
str2:=copy(str1,1,coun+2);
resFloat:=StrToFloat(Str2)+0.01;

end
else
begin
str2:=copy(str1,1,coun+2);
resFloat:=StrToFloat(Str2);

end;
end
else
exit;
result:=resFloat;
end;

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-27

• #5

灵活一点，*100，四舍五入后，再/100

 

N

newfat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-27

• #6

用formatefloat('0.00',124.2331)
得到 123.23
用formatefloat('0.00',124.368)
得到 123.37
不过
用formatefloat('0.00',124.3648)
得到 123.36
不会进位

 

L

lanbing1400

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-27

• #7

var
s:string;
begin
str(124.368 :0:2,s);

//此时s=124.37
end;

用法说明：
procedure Str(X [: Width [: Decimals ]];
var S);

 

墨

墨剑

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-27

• #8

其实用formatfloat函数最简单适用了

 

S

seafox

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-27

• #9

谢谢各位