四舍五入问题

修正：

Public Function RoundToLarger(dblInput As Double, intDecimals As Integer) As Double
    '执行Round()函数，有可能进位
    '也有可能舍去
    Dim strFormatString As String '格式化字符串
    Dim dbTemp As Variant
    '如果是“0”，则返回“0”，否则进行适当的格式化:
    If dblInput <> 0 Then
        strFormatString = "#." & String(intDecimals, "#")
        If Right(Format(dblInput, strFormatString), 1) = "." Then
            dbTemp = Mid(Format(dblInput, strFormatString), 1, Len(Format(dblInput, strFormatString)) - 1)
            If Len(dbTemp) > 0 Then
                RoundToLarger = dbTemp
            Else
                RoundToLarger = 0
            End If
        Else
            RoundToLarger = Format(dblInput, strFormatString)
        End If
    Else
        RoundToLarger = 0
    End If
End Function