VBA Access Aufrunden und Abrunden

  • Access

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von xtts02.

    VBA Access Aufrunden und Abrunden

    Falls mal jemand eine Funktion für Abrunden bzw. Aufrunden mit VBA Access sucht, ich hab mir da eine Kleinigkeit programmiert:

    Visual Basic-Quellcode

    1. Public Function Abrunden(Betrag As Double, Optional Anzahl_Stellen As Double = 2) As Double
    2. Abrunden = Int(Betrag * (10 ^ Anzahl_Stellen)) / 10 ^ Anzahl_Stellen
    3. End Function


    Visual Basic-Quellcode

    1. Public Function Aufrunden(Betrag As Double, Optional Anzahl_Stellen As Double = 2) As Double
    2. If Not (IsNumeric(Anzahl_Stellen)) Then Anzahl_Stellen = 0
    3. Komma = InStr(1, Betrag, ",", vbTextCompare)
    4. If (Komma = 0 And Anzahl_Stellen >= 0) Or (Komma > 0 And Anzahl_Stellen = Len(Right(Betrag, Len(Betrag) - Komma))) Then
    5. Aufrunden = Betrag
    6. GoTo Ende
    7. Else
    8. Aufrunden = Int((Betrag * (10 ^ Anzahl_Stellen)) + 1) / 10 ^ Anzahl_Stellen
    9. End If
    10. Ende:
    11. End Function


    Über Rückmeldungen würde ich mich freuen!

Facebook
Telefonspende