Office中国论坛/Access中国论坛

标题: 关于四舍五入问题 [打印本页]

作者: taogon 时间: 2007-3-27 21:03
标题: 关于四舍五入问题

用的round函数保留一位小数时出现5时不进位的问题，见附件

如2.25 应该是2.3，但是实际取到2.2，不知道什么原因，请高手指点

但是2.35取到的是2.4[attach]23706[/attach]

[此贴子已经被作者于2007-3-27 13:09:17编辑过]

作者: WDLRCZT 时间: 2007-3-27 21:33
这是以前从网上找到关于解决四舍五入的方法,看看能不能满足你的要求

'作者：huanghai 文章来源：AccessQQ 更新时间：2004-11-23
'自定义自四舍五入函数
'解决ACCESS97以下版本不支持Round函数
'解决Round"有名"的四舍六入现象

'参数: Number , 要进入四舍五入的数值
'参数:N,要保留的小数位数,不足时以0补上

'用法:
'Print myRound(1.4367, 2)
'1.44
Function myRound(Number As Double, N As Integer) As String
myRound = Format(Int(Number * (10 ^ N) + 0.5) / (10 ^ N), "0." & String(N, "0"))
End Function

作者: taogon 时间: 2007-3-27 23:31
谢谢，我的解决方法是加0.00000000001，就可以正常进位了

如：round(2.25+0.000000001,1)就得到2.3可以正常进位

我想知道这是不是一个BUG啊，害得我工作中差点处理大问题。

作者: wjw8216 时间: 2008-5-29 21:53
[:30] 学习了呵呵

作者: rcylbx 时间: 2008-7-16 07:14
[:28] [:28]

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