Office中国论坛/Access中国论坛

标题: 【技巧】数字各种取整的方法 [打印本页]

作者: 盗梦 时间: 2013-7-5 09:06
标题: 【技巧】数字各种取整的方法
【技巧】各种取整方法

取整主要分三种：取整数部分，四舍五入，向上取整
一、取整数部分
先介绍两个取整数部分的函数：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")

复制代码

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

‘代码：dim a as double,b as long
a=10.11
b=-Int(-s)

复制代码

作者: admin 时间: 2013-7-5 09:46
顶一下,很详细

作者: 竹笛 时间: 2013-7-5 15:43
强制类型转换

作者: aslxt 时间: 2013-7-5 16:01
四舍五入我一直用
B=INT(A+0.5)

作者: 盗梦 时间: 2013-7-5 16:19

aslxt 发表于 2013-7-5 16:01
四舍五入我一直用
B=INT(A+0.5)

好主意！！！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)