保留有效位数并四舍六入2004-11-26新*

wangkang

谢谢所有楼上的朋友们！

只恨相见太晚，但终有幸得以拜读。

龙吟枫

请问楼主怎样用自定义函数实现精确小数位数，如要求精确到0.1 0.01 0.001 0.001 或者是精确到10 100等等！

具体修约规则和保留位数修约一样：

例：

精确到10有：55-60 45-40 45.1-50

精确到1的：5.5-6 4.5-4 4.51-5

精确到0.1的：0.55-0.6 0.45-0.4 0.451-0.5

需要注意的和保留位数的修约一样，就是如果五后面还有数值的哪怕是0.000001那还是按照四舍五入正常进位！

请楼主和各位高手多多帮忙！我是应用在建筑工程上的修约法则！

apolloh

不用改了，Round2的第二个参数就是设置有效位数的。

龙吟枫

以下是引用apolloh在2005-6-28 14:33:00的发言：

不用改了，Round2的第二个参数就是设置有效位数的。

保留有效位数和精确大到0.0几还是有区别的啊！因为在实际的工作中有可能一遇到下面一种情况

例如：

精确到10的1155-1160（这个是保留三个有小数值）

955（如果也是按保留三个有效数值进行修约的话就不是精确到10了）就成为955了！

apolloh

A1为数值，B1为精确位数

=ROUND(A1,B1)-(RIGHT(A1*10^B1,2)=".5")*10^-B1

龙吟枫

已经好了！谢谢！

longkw

学习

赵国辉

apolloh老师：

  能不能把自定义函数解法格式整理一下，没有换行我看不大明白

  麻烦了，谢谢

  在线等！

chrisfang

第一次是在其他地方看到这个四舍六入问题的时候，当时还给了个公式：

=IF(AND(RIGHT(A1,1)="5",FIND(".",A1)+x+1=LEN(A1)),--(LEFT(A1,LEN(A1)-2)&EVEN(MID(A1,LEN(A1)-1,1))),ROUND(A1,x))

其中X为保留小数位数。此公式只针对位数不是太长且不用科学计数法表示的数字。

但看看黄版主的整理出来的几个公式好像要复杂得多，弱弱的问一句，是为了适应浮点运算和科学计数法才搞得这么复杂吗？

ybl-307

Chrisfang:

如果A1大于5，保留一位小数，小于5保留两位小数,对吗？

=IF(A1>4.995,IF(AND(RIGHT(A1,1)="5",FIND(".",A1)+1+1=LEN(A1)),--(LEFT(A1,LEN(A1)-2)&EVEN(MID(A1,LEN(A1)-1,1))),ROUND(A1,1)),IF(AND(RIGHT(A1,1)="5",FIND(".",A1)+2+1=LEN(A1)),--(LEFT(A1,LEN(A1)-2)&EVEN(MID(A1,LEN(A1)-1,1))),ROUND(A1,2)))

还有一个问题想请教您，要求保留小数位数，如：0.60、6.0、（您的公式返回为0.6、6)，该如果解决？

再次谢谢您啦！