Wer in VBA Zahlen rundet, greift meist zur eingebauten Round-Funktion. Das klingt naheliegend, führt aber regelmäßig zu überraschenden Ergebnissen. Der Grund liegt in einem Rundungsverfahren, das für kaufmännische Zwecke ungeeignet ist. Wir zeigen Dir, wo das Problem liegt und wie Du es mit einer eigenen Funktion zuverlässig löst.<\/p>\n
Die Beispiele dieses Artikels findest Du in der Datenbank VBABasics_RundenMitVBA.accdb<\/b>.<\/p>\nRunden im Alltag<\/h2>\n
Runden gehört zu den häufigsten Operationen beim Arbeiten mit Zahlen in kaufmännischen Anwendungen.<\/p>\n
Ob Rechnungsbeträge, Steuerberechnungen oder statistische Auswertungen – fast überall müssen Dezimalzahlen auf eine bestimmte Anzahl Nachkommastellen gebracht werden.<\/p>\n
In der Schule lernen wir die kaufmännische Rundungsregel: Ist die erste wegfallende Stelle kleiner als 5, wird abgerundet. Ist sie 5 oder größer, wird aufgerundet. Diese Regel ist einfach, eindeutig und für die meisten Anwendungsfälle richtig.<\/p>\n
VBA bietet mit Round<\/b> eine eingebaute Funktion zum Runden. Auf den ersten Blick scheint diese alles zu leisten, was man braucht. Bei näherer Betrachtung offenbart sie jedoch ein Verhalten, das viele Entwickler in die Irre führt.<\/p>\nDie eingebaute Round-Funktion und ihre Tücke<\/h2>\n
Die Round<\/b>-Funktion hat folgende Syntax:<\/p>\n Der erste Parameter ist die zu rundende Zahl, der zweite die gewünschte Anzahl an Nachkommastellen. Fehlt der zweite Parameter, rundet VBA auf eine ganze Zahl. Ein einfaches Beispiel:<\/p>\n Das Ergebnis überrascht: Round(2.5)<\/b> liefert 2<\/b>, obwohl man 3<\/b> erwarten würde. Round(3.5)<\/b> hingegen liefert korrekt 4<\/b>. Der Grund ist das sogenannte „Banker’s Rounding“, auf Deutsch auch als „Round Half to Even“ bezeichnet.<\/p>\n Beim Banker’s Rounding gilt eine besondere Regel für den Grenzfall, dass die erste wegfallende Stelle genau 5<\/b> ist und dahinter keine weiteren Stellen folgen. In diesem Fall wird nicht immer aufgerundet, sondern zur nächsten geraden Zahl gerundet:<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>Round(Ausdruck, [NachkommaStellenAnzahl])<\/pre>\n
Debug.Print<\/span><\/span> Round(2.49) 'liefert 2\r\nDebug.Print<\/span><\/span> Round(2.5) 'liefert 2\r\nDebug.Print<\/span><\/span> Round(2.51) 'liefert 3\r\nDebug.Print<\/span><\/span> Round(3.5) 'liefert 4<\/pre>\nBanker’s Rounding: Was steckt dahinter?<\/h2>\n
\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t