Microsoft Access Programmierrezepte

R1.34 Kaufmännisch runden

Aufgabe

Sie möchten, dass ein Betrag immer auf 50 Cent aufgerundet wird, z.B. von 11,52 Euro auf 12 Euro oder von 11,02 Euro auf 11,50 Euro.

Lösung

Mit Hilfe der mathematischen Int-Funktion, die eine Gleitkommazahl auf ihren ganzzahligen Wert beschneidet, ist das Problem vom Prinzip her lösbar. Wir entwickeln auf dieser Basis eine eigene Rundungsfunktion, der als Parameter der zu rundende Betrag und die Rundungsschwelle (z.B. 50 Cent) übergeben werden.

Oberfläche

Zum Testen der Funktion betragKR genügen zwei Textfelder und eine Befehlsschaltfläche (siehe Abbildung 1.45).

Quellcode

Option Explicit

Die Rundungsfunktion betragKR:

Public Function betragKR(betr As Double, rdUp As Double) As Double
  betragKR = rdUp * (1 + Int((betr - ...