技巧

热门文章

最新文章

联系方式

Access交流网(免费Access交流）

QQ：18449932 

网  址：www.access-cn.com

VBA基础

access vba几种数字取整的方法

我们工作中，因为小数太多，计算不方便，需要取整。其中取整主要分三种：取整数部分，四舍五入，向上取整

一、取整数部分
    先介绍两个取整数部分的函数：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)

 
发布人:阿航-office中国  
分享到：
点击次数：  更新时间：2013-10-09 16:17:46  【打印此页】  【关闭】
上一条：access代码英文标点变成中文标点符号  下一条：Access窗体属性表


相关文章

热门文章

热门产品