Falls mal jemand eine Funktion für Abrunden bzw. Aufrunden mit VBA Access sucht, ich hab mir da eine Kleinigkeit programmiert:
Über Rückmeldungen würde ich mich freuen!
Visual Basic-Quellcode
- Public Function Aufrunden(Betrag As Double, Optional Anzahl_Stellen As Double = 2) As Double
- If Not (IsNumeric(Anzahl_Stellen)) Then Anzahl_Stellen = 0
- Komma = InStr(1, Betrag, ",", vbTextCompare)
- If (Komma = 0 And Anzahl_Stellen >= 0) Or (Komma > 0 And Anzahl_Stellen = Len(Right(Betrag, Len(Betrag) - Komma))) Then
- Aufrunden = Betrag
- GoTo Ende
- Else
- Aufrunden = Int((Betrag * (10 ^ Anzahl_Stellen)) + 1) / 10 ^ Anzahl_Stellen
- End If
- Ende:
- End Function
Über Rückmeldungen würde ich mich freuen!