将数字四舍五入保留两位小数

分　　类：科学
语　　种：简体中文
编辑器：Delphi7
平　　台：Win9x,Win2k/NT,WinXP
作品源代码： -
软件或演示： -
代码大小： -
软件大小： -

无图片

function SSWR(s: real): real;
var
r1, r2: real;
s1, s2: string;
begin
r1 := int(s);
r2 := frac(s);
s1 := copy(floattostr(r1), 1, length(floattostr(r1)));
if length(floattostr(r2)) >= 5 then
begin
if strtoint(copy((floattostr(r2)), 5, 1)) >= 5 then
if strtoint(copy((floattostr(r2)), 4, 1)) = 9 then
if strtoint(copy((floattostr(r2)), 3, 1)) = 9 then
begin
s1 := inttostr(strtoint(s1) 1);
s2 := ';
end
else
S2 := inttostr(strtoint(copy((floattostr(r2)), 3, 1)) 1)
else if copy((floattostr(r2)), 3, 1) = '0' then
S2 := '0' inttostr(strtoint(copy(floattostr(r2), 3, 2)) 1)
else s2 := inttostr(strtoint(copy(floattostr(r2), 3, 2)) 1)
else s2 := copy(floattostr(r2), 3, 2);
end
else s2 := copy(floattostr(r2), 3, 2);
result := strtofloat(s1 '.' s2);
end;
//搞一个数字处理的程序，要用到四舍五入，将此函数奉上，供大家讨论。

上一篇： 初学者关机演示程序
下一篇： 多表头的DBGridEH导出到Excel中

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!