<<< 返回 access911.net 编程静态资料库索引页

关于四舍五入-2

 

作者:  摘自:  录入:cg1  时间:2002-11-21  浏览人次:1879


专题地址:http://access911.net/fixhtm/73FABF1E.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:

 



以下是??的四舍五入的函数,专用与计量认证的数据处理。供大家参考! 
规则:1 保留小数点后两位有效数字(以小数点后,第一个非零数算起两位数字) 
   2 四舍六入五奇偶:“五奇偶”是指第三位有效数为5时,要看第二位的奇偶属性 
    奇数进,偶数舍 
举例:11.00155 ----> 11.0016 
   11.00165 ----> 11.0016 
   11.135  ----> 11.14 
   11.500  ----> 11.50 
   11.550  ----> 11.55 
   11.56001 ----> 11.56  *只要有非零尾数,无论奇偶都要进位 
---------------------------------- 
Public Function cmcrnd(anumber As Double) As Double 
anumber = Int(anumber * 10 ^ 6) / 10 ^ 6 
Dim a As Double 
Dim a1, n As Byte 
Dim t As String 
n = 0 
a = anumber 
t = Mid(Trim(Str(FORMatNumber(a - Int(a), 4, , , vbUseDefault))), 2) </P><P>F.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/73FABF1E.htm

 


上一篇:如何四舍五入?

下一篇:如何用vba判断系统是否安装excel?

2017年2月22日生成静态资料