Unter MS-Access mit einen bestimmen Anzahl von Dezimalstellen Runden

Codes Zahlen 18. August 2026 Zugriffe: 22

Für 32Bit und 64Bit Office Versionen

Problemstellung:

Wie kann ich unter Access mit bestimmen Anzahl von Dezimalstellen Runden?

Function RoundIt(NumberToRound As Double, DecimalPlace As Integer) As Double
    Dim Temp As Double
    Temp = Int((NumberToRound * (10 ^ DecimalPlace)) + 0.5) / (10 ^ DecimalPlace)
    RoundIt = CDbl(Temp)
End Function

Aufruf:

Dim x As Double
x = RoundIt(1317.4258, 3)

Ergebnis: x = 1317,426

Dim x As Double
x = RoundIt(1317.4258, 2)

Ergebnis: x = 1317,43

Dim x As Double
x = RoundIt(1317.4258, 1)

Ergebnis: x = 1317,4

Dim x As Double
x = RoundIt(1317.4258, 0)

Ergebnis: x = 1317

Home

Unter MS-Access mit einen bestimmen Anzahl von Dezimalstellen Runden

Wir verwenden Cookies