VBA基础
access vba几种数字取整的方法
2013-10-09 16:17:46
我们工作中，因为小数太多，计算不方便，需要取整。其中取整主要分三种：取整数部分，四舍五入，向上取整 一、取整数部分     先介绍两个取整数部分的函数：Int(number) 和 Fix(number)。 Int函数和 Fix函数都是删除 number参数的小数部分并返回以整数表示的结果。但他们有一个区别

    Int(55.8) ' 返回 55。

    Fix(55.2) ' 返回 55。

    Int(-55.8) ' 返回 -56。

    Fix(-55.8) ' 返回-55。

    Int(-55.2) ' 返回 -56。

    Fix(-55.2) ' 返回 -55  

很明显，不管小数是什么，取整结果一样。正数取整数部分；负数，Fix函数还是取整数部分，而Int函数取小于改数的整数。 二、四舍五入     1、使用数学逻辑           原理：先乘以10，用Int函数取整。再判断个位数是否大于5，大于则原来数字取整后加1，小于则只是原来数字取整

          dim a as double,b as long

                     a=10.56

                     a=a*10

                     if right(int(a),1)>=5 then

                           b=int(a/10)+1

                     else

                           b=int(a/10)

                     end if

  2、使用Format 格式化函数

          dim a as double

                     a=10.56

                     msgbox format(a,"0")

3、使用int 函数

            B=INT(A+0.5)

三、向上取整         向上取整是只要有小数，整数部分直接加一，想了想，找到一个最简单的办法实现。         原理：假设是整数，取负数，利用int函数的特性，自然就取整绝对值加一，再乘负1

        ‘代码：dim a as double,b as long

                a=10.11

                b=-Int(-s)

 
首页