ROUND四舍五入函数经常失效，有好的解决方法吗？

jsjdn2004

请帮我看看查询1中的“配件价格”字段，我用了ROUND函数，但显示出来还是有十几位小数，这是为什么？

海狸先生

用这个Public Function MyRound(dblInput As Variant, Optional intDecimals As Integer) As Double

Dim strFormatString As String    '格式化字符串

    If IsNull(dblInput) Then MyRound = 0: Exit Function

       If dblInput <> 0 Then

       If IsNull(intDecimals) Or intdeximals = 0 Then

        MyRound = Val(Format(dblInput, "#"))

        Else

        strFormatString = "#." & String(Nz(intDecimals), "#")

        MyRound = Val(Format(dblInput, strFormatString))

        End If

    Else

        MyRound = 0

    End If

End Function

nxjswt

海狸，谢谢你冽！

应该是


Public Function MyRound(dblInput As Variant, Optional intDecimals As Integer) As Double
Dim strFormatString As String    '格式化字符串
    If IsNull(dblInput) Then MyRound = 0: Exit Function
       If dblInput <> 0 Then
       If IsNull(intDecimals) Or intDecimals = 0 Then
        MyRound = Val(Format(dblInput, "#"))
        Else
        strFormatString = "#." & String(Nz(intDecimals), "#")
        MyRound = Val(Format(dblInput, strFormatString))
        End If
    Else
        MyRound = 0
    End If
End Function

[此贴子已经被作者于2006-6-4 13:56:16编辑过]