向下取整的RoundDown自定义函数

时　间:2020-12-10 10:13:42
作　者:张俊   ID：44010  城市：扬州
摘　要:分享一个自定义函数，功能是将数字向零的方向向下舍入，即只舍不入。
正　文:

一、问题描述：

      我用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

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