Office: (Office 2003) kaufmännisches Runden

Der_Kesselflicker · 25. April 2010

Hallo Access-Gemeinde,

ich steh gerade voll auf dem Schlauch. Ich möchte mir das Ergebnis einer Division auf zwei Nachkommastellen kaufmännisch runden lassen.

Code:

Sub test()
Dim dblBetrag As Double
Dim dblFW As Double

dblBetrag = 100
dblFW = 1.28
Debug.Print Round(dblBetrag / dblFW, 2) & " ; " & dblBetrag / dblFW

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Zur Verdeutlichung lasse ich das Ergebnis einmal gerundet und einmal ungerundet ausgeben. Als Ergebnis bekomme ich folgende Werte: 78,12 ; 78,125

Müsste hier nicht 78,13 rauskommen? *frown.gif*

:)

raist10 · 27. April 2010

Müsste hier nicht 78,13 rauskommen?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nach den kaufmännischen Grundsätzen in Deutschland ja. Aber die Funktion Round rundet BIS 5 ab und erst ab 6 wird aufgerundet.

Gruß

Rainer

Josef P. · 27. April 2010

Aber die Funktion Round rundet BIS 5 ab und erst ab 6 wird aufgerundet.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

Msgbox Round(1.5)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

=> 2 *wink.gif*

Die Round-Funktion rundet mathematisch.

Eine Round-Funktion zum kaufmännischen Runden steht u. a. in der Access-FAQ von Karl Donaubauer.

Weitere Infos findest man bestimmt mit diesem Link *biggrin.gif*

Der_Kesselflicker · 27. April 2010

Super, vielen Dank für die schnelle Hilfe *Smilie

Lanz Rudolf · 27. April 2010

Hallo
ich habe im Anhang auch noch was zum Thema

Office: (Office 2003) kaufmännisches Runden

kaufmännisches Runden

kaufmännisches Runden

kaufmännisches Runden

kaufmännisches Runden - Similar Threads - kaufmännisches Runden

aktuelles Alter aus Geburtsdatum auslesen und runde Geburtstage markieren

Datum/Uhrzeit runden in PowerQuery

Runden bei Zeiten

immer auf die nächsten 0,50€ aufrunden

Problem mit Runden (round)

Kaufmännisches Runden....

Bewerbung in eigenem Stil für kaufmännische Berufe!