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;
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
