访问中的四舍五入

Posted 2023-04-14

【中文标题】访问中的四舍五入

【英文标题】：Rounding in Access

【发布时间】：2012-07-24 12:29:50

【问题描述】：

以下代码工作正常，但是它没有将存储的值四舍五入到最接近的便士，例如 8.025 即将到来而不是 8.01 有人可以建议修复吗？

Public Function Fs_Update_AccInvoices_Nexum() As Boolean
    Dim adoRsInvoiceDCID As New ADODB.Recordset
    Dim adoRsNexumInvoices As New ADODB.Recordset

    On Error Resume Next
    adoRsInvoiceDCID.Open "SELECT * FROM [tInvoiceDCID] where Issued=0" _
        , CurrentProject.Connection, 2, 2
    While Not adoRsInvoiceDCID.EOF
        adoRsNexumInvoices.Open "SELECT * FROM [tPrintInvoiceNumbersNexum] " _
            & " WHERE InvoiceID=" & adoRsInvoiceDCID("InvoiceID") _
            , CurrentProject.Connection, 2, 2
        If Not adoRsNexumInvoices.EOF Then
            DoCmd.SetWarnings off
            DoCmd.RunSQL "Update [Acc Invoices t Nexum] " _
                & " SET [Total Due] = Round((Fees/0.8)+(VAT/0.8)+OutLays,2)" _
                & " Fees = Round(Fees/0.8,2), VAT = Round(Vat/0.8,2)" _
                & " WHERE Invoice=" & adoRsNexumInvoices("PrintingasINVOICE")
        End If
        adoRsNexumInvoices.Close

        adoRsInvoiceDCID.MoveNext
    Wend
    adoRsInvoiceDCID.Close
End Function

干杯 罗斯

【参考方案1】：

快速说明： 我注意到 vba 的舍入函数存在格式函数无法修复的一些不准确之处。在我的特殊情况下，我试图将数字 3687.23486 舍入

圆形(3687.23486) = 3687.23

格式(3687.23486, "#.00") = 3687.23

在传统的最接近规则下，这应该导致 3687.24 我已经看到在各种论坛上发布了几个自定义函数来解决舍入问题，但没有一个对我有用，所以我自己编写了。

    Function trueRound(ByVal varNumber As Variant, ByVal intDecimals As Integer) As Double
    If IsNull(varNumber) Then
        trueRound = 0
        Exit Function
    End If
    Dim decimals As Integer, testNumber As Double
    decimals = 0
    If InStr(varNumber, ".") > 0 Then decimals = Int(Len(varNumber)) - Int(Len(Fix(varNumber)) + 1)
    If decimals = 0 Or intDecimals > decimals Then
        trueRound = varNumber
        Exit Function
    End If
    Do Until Len(varNumber) - Len(Fix(varNumber)) - 1 <= intDecimals
        testNumber = varNumber * 10 ^ (decimals - 1)
        varNumber = Round(testNumber, 0) / 10 ^ (decimals - 1)
        decimals = decimals - 1
    Loop
    trueRound = varNumber
End Function

我很快就把它算出来了，所以没有错误处理，传递给函数的空值会导致 0，这可能并不适合所有情况。我经常在一些非常大的查询中使用它，希望它可以帮助其他人。

【讨论】：

有很多不同的四舍五入规则集。我专门寻找一种方法来从零舍入一半，并偏向更大的数字。我知道“trueround”是用词不当，因为这不是最常见的舍入方法。如果没有别的，这可能有助于某人定制自己的舍入函数以适应他们需要的任何规则。

【参考方案2】：

“Round 函数执行从round to even，从round to large 不同。” --微软

Debug.Print Round(19.955, 2)
'Answer: 19.95

Debug.Print Format(19.955, "#.00")
'Answer: 19.96

另见How to Round in MS Access, VBA

【讨论】：

当我输入“#.00”时出现代码错误 Round((Fees/0.8)+(VAT/0.8)+OutLays, "#.00") is this where it should be ?

#.00 采用格式，而不是圆形。 Format((Fees / 0.8) + (VAT / 0.8) + OutLays, "#.00")