|
| 盒子资源分类 |
![]() |
|
|
|
|
| 将数字四舍五入保留两位小数 |
![]() |
| 关键字：四舍五入 SSWR 字符串 数字 小数 |
| 来 自：原创 |
| 平 台：Win9x,Win2k/NT,WinXP |
下载所需：0 火柴 |
| 深浅度：初级 |
完成时间：2004/7/14 |
| 发布者：hongfeng |
发布时间：2004/7/14 |
| 编辑器：DELPHI7 |
语 种：简体中文 |
| 分 类：科学 |
下载浏览：282/13598 |
|
|
|
|
|
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;
//搞一个数字处理的程序，要用到四舍五入，将此函数奉上，供大家讨论。 |
| 本站原创作品，未经作者许可，严禁任何方式转载；转载作品，如果侵犯了您的权益，请联系我们！ |
| 相关文章 |
|
![]() |
|
|
| 相关评论 |
![]() |
|
|
|
|
