access vba几种数字取整的方法_access模块-access类模块-access函数-access VBA

access vba几种数字取整的方法

时间：2013-10-09 16:18 来源：office中国作者：阿航阅读：次

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

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

(责任编辑：admin)

顶一下

(3)

100%

踩一下

(0)

上一篇：Access在规定时间内禁止用户输入
下一篇：access代码英文标点变成中文标点符号