一个四舍五入的函数

• 
  　　这是一个四舍五入的函数，具体用法　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
  

• [1] [2] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 一个四舍五入的函数 相关文章：
• ·一个四舍五入的函数
• 一个四舍五入的函数 相关软件

上一篇:隐藏我的电脑中驱动器

下一篇:用Delphi编程实现清空回收站功能

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐