一个四舍五入的函数

这是一个四舍五入的函数,具体用法 myround(1.999,2) = 2.00 第一位1.999为要四舍五入的数,2为要取的小数位。

欢迎大家测试探讨。QQ:81392790

function myround(const yuan: Extended; const pp: Integer): Extended;
//yuan:原浮点数,PP保留 小数点后第几位
var
 p,l,m,l2:Longint;
 s:string; // 原浮点数
 sq:string; // 小数点前
 sh:string;//小数点后
begin
 if yuan=0 then exit;// 原浮点数 0
 if pp<0 then exit; //非法小数点后第几位
 s:=floattostr(yuan);
 p:=pos('.',s);   //小数点位置
 sq:=midstr(s,1,p-1);
 sh:=midstr(s,p+1,length(s)-length(sq)-1);
 l:=length(sh);//小数位数
 l2:=length(sq);//整数位数
 if pp>=l then
  begin//0
   result:=strtofloat(s);
   exit;//比如 11。06 要保留到 小数点后第3位显然 不合理
  end;//
{ if pp=l then  //比如 11。06 要保留到 小数点后第2位不用处理 直接返回
   begin//1
     Result:=s;
     exit;
   end;//1 }
  if pp<l then //比如 11。06 要保留到 小数点后第1位 ,。。。
  begin//2
    m:=strtoint(sh[pp+1]);
    if m>=5 then
    begin
      if pp>=1 then //保留到 小数点后第1,2。。。位
      begin//3
       sh:=midstr(sh,1,pp);
       sh := inttostr(strtoint(sh)+1);
       if length(sh)>pp then
       begin
          sh:= midstr(sh,2,pp);
          sq:= inttostr(strtoint(sq)+1);
       end;
      Result:=strtofloat(sq+'.'+sh);
      exit;
      end//3
      else  //保留到 小数点后第0位
      begin//4
       sq[l2]:=chr(ord(sq[l2])+1);
       Result:=strtofloat(sq);
       exit;
      end;//4
    end
    else
    begin
      if pp>=1 then //保留到 小数点后第1,2。。。位
      begin//3
       sh:=midstr(sh,1,pp);
       Result:=strtofloat(sq+'.'+sh);
      exit;
      end//3
      else  //保留到 小数点后第0位
      begin//4
       Result:=strtofloat(sq);
       exit;
      end;//4
    end;
  end;//2
end;

  • 1
    点赞
  • 0
    收藏
  • 打赏
    打赏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页
评论

打赏作者

侃侃2016

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值