Office中国论坛/Access中国论坛

标题: 请教四舍五入问题 [打印本页]

作者: zhongbaba 时间: 2006-6-22 01:35
标题: 请教四舍五入问题
请问为何我的数据库里计算56.54X5430的得数总是307012.22,而不是307012.20?我已经用了一个四舍五入的函数来控制其得数了,但还是显示307012.22,我的那个四舍五入函数是在这里下载的,代码如下:

Option Compare Database
Option Explicit

Public Function RoundToLarger(dblInput As Double, intDecimals As Integer) As Double
   Dim strFormatString As String

      If dblInput <> 0 Then
      strFormatString = "#." & String(intDecimals, "#")
      RoundToLarger = Format(dblInput, strFormatString)
Else
      RoundToLarger = 0
End If

End Function

我的公式为"=" RoundToLarger(56.54*5430,2),但得数是307012.22,请各位帮忙解决,谢谢!

作者: 一点通 时间: 2006-6-22 04:19
如果单纯是这个计算,只用如下代码就行了

format(计算值,"0.00")

作者: zhongbaba 时间: 2006-6-23 20:07
谢谢帮忙,真的是一点通呀!

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