vb@rchiv · Tipps & Tricks · Kaufmännisch auf bestimmte Anzahl Dezimalstellen runden

Rubrik: Variablen/Strings · Algorithmen/Mathematik | VB-Versionen: VB2005, VB2008

29.09.08

Kaufmännisch auf bestimmte Anzahl Dezimalstellen runden Mit dieser Funktion lassen sich Werte kaufmännisch korrekt auf die benötigte Anzahl Nachkommastellen runden.
Autor: Dieter Otter	Bewertung:	Views: 25.890
www.tools4vb.de	System: Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

In vielen Fällen muss mit Beträgen gerechnet werden, bei denen die Rechenergebnisse kaufmännisch korrekt gerundet sein müssen. Die Funktion "Math.Round" aus dem .NET Framework ist für diesen Zweck nicht geeignet, wie nachfolgendes Beispiel zeigt:

Dim value As Double = 13.365
MsgBox Math.Round(CDec(value), 2) ' Ergebnis: 13,36

Als Ergebnis wird hier 13,36 angezeigt, was im kaufmännischen Bereich allerdings falsch ist. Da als 3. Nachkommastelle eine 5 steht, muss die letzte Nachkommastelle aufgerundet werden!

Nachfolgende Funktion rundet einen Wert kaufmännisch korrekt auf die Anzahl der benötigten Nachkommastellen:

''' <summary>
''' Betrag korrekt kaufmännisch runden
''' </summary>
''' <param name="value">Betrag</param>
''' <param name="decimals">Anzahl Nachkommastellen</param>
Public Function RoundCorrect(ByVal value As Double, ByVal decimals As Integer) As Double
  ' zunächst das Vorzeichen merken
  Dim sign As Integer = Math.Sign(value)
 
  ' Wert absolut (ohne Vorzeichen)
  value = Math.Abs(value)
 
  ' Wert um Faktor 10^decimals multiplzieren
  ' und 0.5 hinzuaddieren
  value *= Math.Pow(10, decimals)
  value += 0.5
 
  ' nur den Ganzzahlenwert berücksichtigen und 
  ' entsprechend der Anzahl Nachkommastellen 
  ' durch 10^decimals teilen
  value = Math.Floor(value) / Math.Pow(10, decimals)
 
  ' Vorzeichen berücksichtigen
  Return sign * value
End Function

Anwendungsbeispiel:

Dim value As Double = 13.365
MsgBox RoundCorrect(value, 2)  ' Ergebnis: 13,37