ms-access - 如何在 MS Access 中安装 MROUND 功能？

Question

MS Access 中不存在此函数MRound，您不能直接安装它。

我正在尝试在 Access 中使用 mround 函数报告。该函数未在表达式中列出内置函数的构建器框。当我使用计算，例如 =mround([AmountDue],0.05)，以及运行报告，它需要一个参数mround。

Answer 1

您可以在公共(public) VBA 模块中定义自己的模块，例如:

Function MRound(dblNum As Double, dblMtp As Double) As Double
    MRound = dblMtp * Round(dblNum / dblMtp, 0)
End Function

或者，将对 Microsoft Excel 对象库的引用添加到您的 VBA 项目(“工具”>“引用”)，并在公共(public) VBA 模块中将 MRound 函数定义为:

Function MRound(dblNum As Double, dblMtp As Double) As Double
    MRound = Excel.WorksheetFunction.MRound(dblNum, dblMtp)
End Function