一、问题描述：

      我用Access快速开发平台企业版已5年了，最近需要用到向下取整的功能，用到了RoundDown函数，但是发现有点问题，例如：

      该函数在平台帮助文件中的说明如下：

二、解决方案：

      经过和上海盟威软件开发人员交流，对该函数进行了改进，完美地解决了我的软件功能需要。在此给大家分享一下这个函数：

Public Function RoundDown(ByVal Number As Variant, Optional NumDigitsAfterDecimal As Long = 0) As Variant

    On Error GoTo ErrorHandler
    RoundDown = Number * (10 ^ NumDigitsAfterDecimal)
    RoundDown = Int(RoundDown) * (0.1 ^ NumDigitsAfterDecimal)

ExitHere:
    Exit Function
    
ErrorHandler:
    RoundDown = Null
    Resume ExitHere
    
End Function

将此函数复制到模块中，即可。（当有同名函数时，将优先执行当前文件中的函数，而不执行平台代码库中的同名函数）。