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

分　　类：科学
语　　种：简体中文
编辑器：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中

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有