四舍六入计算函数公式.docVIP

四舍六入计算函数公式 《四舍五入，奇进偶舍》 ** * 编制：dlys1019 ** * 日期：2004.11.10 ** * 入口参数: ** * X1：需要舍入的数 ** * X2：保留的小数位数 ** FUNCTION ROUNDX PARA X1,X2 nAAA=INT(x1*10^(x2+1)) nBBB=INT(x1*10^x2) DO case CASE VAL(RIGHT(STR(nAAA),1))5 .or. VAL(RIGHT(STR(nAAA),1))5 RETURN ROUND(x1,x2) CASE VAL(RIGHT(STR(nAAA),1))=5 IF MOD(nBBB,2)=1 RETURN (nBBB+1)/(10^x2) ELSE RETURN nBBB/(10^x2) ENDIF ENDCASE * 例如：round(123.455,2)=123.46 ** * roundx(123.465,2)=123.46 ** VB学习----奇进偶舍函数 测量程序必用到的自己定义函数，在对测量数据处理结果都要用奇进偶舍原则来对结果进行处理。Public Function NNN(ByVal NM As Double, ByVal BB As Integer) As Double Rem **** 奇进偶舍函数 Rem **** NM为需要奇进偶舍的变量，BB为NM这个变量需要保留的小数点后面的倍数，最多允许小数后10位 Dim BNM As Double Dim c As Integer Dim j As Integer Dim k As Integer Dim i As Double c = Sgn(NM) ** 符号函数 BNM = Abs(NM) ** 绝对值函数 i = (BNM * 10 ^ (BB + 1) + 10 ^ (-11) - 10 * Fix(BNM * 10 ^ BB + 10 ^ (-11))) i = (Fix(i * 10 ^ 10)) / 10 ^ 10 j = Fix(BNM * 10 ^ BB + 10 ^ (-11)) - 10 * Fix(BNM * 10 ^ (BB - 1) + 10 ^ (-11)) ** 奇偶检校 If i 5 Then k = 1 ElseIf i 5 Then k = 0 ElseIf (i = 5 And j = 2 * Fix(j / 2)) Then k = 0 Else k = 1 End If NNN = c * Fix(BNM * 10 ^ BB + k) / 10 ^ BB End Function 供参考。。。。。 摘要：Excel是大家非常熟悉的应用软件，其使用非常方便。尤其是其强大的函数功能，为我们带来了极大方便，但有时我们为实现一项规定的功能，可能用到几个函数或者采用嵌套函数，这样应用起来，也不太方便；或者使用自定义公式进行计算，就没有现成的公式可用。可喜的是，我们可以创建自定义函数UDF(User—defined function)，它的运行与Excel中自带的函数完全相同。建立自定义函数有以下几个优点：建立自己特殊的功能和名称的函数；能将复杂的、嵌套的、多个原有的函数组合在一起，发挥更大的威力，使用、维护更加方便。 关键词：函数 水质 应用 　　Excel是大家非常熟悉的应用软件，其使用非常方便。尤其是其强大的函数功能，为我们带来了极大方便，但有时我们为实现一项规定的功能，可能用到几个函数或者采用嵌套函数，这样应用起来，也不太方便；或者使用自定义公式进行计算，就没有现成的公式可用。可喜的是，我们可以创建自定义函数UDF(User—defined function)，它的运行与Excel中自带的函数完全相同。建立自定义函数有以下几个优点：建立自己特殊的功能和名称的函数；能将复杂的、嵌套的、多个原有的函数组合在一起，发挥更大的威力，使用、维护更加方便。 　　比如在水质计算中，高锰酸盐指数的计算公式非常繁琐，而且含必须将结果修约至0.1，还得考虑逢5奇进偶舍的问题。利用计算器逐步计算很是麻烦；在EXCEL中利用单元格引用计算稍有不注意，可能造成计算上差错，而且每次都得建立，很不方便。现在我们利用EXCEL自带的VBA编辑器建立自己的函数来解决这个问题。 　　首先进入Excel，在[工具]→[宏]→[Visul Basic编辑器](也可按组合键[Alt+F11])，在“Visul Basic编辑器”中选择[插入]→[添加模块]，将模块名称改为“高锰酸盐指数浓度计算公式”，在代码窗口输入下列函数： 　　Public Function CImn