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:     [ Jetzt bewerten ]	Views:  27.539
https://www.tools4vb.com	System:  Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 6 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.0 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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