Zur Hauptseite ... Zum Onlinearchiv ... Zum Abonnement ... Zum Newsletter ... Zu den Tools ... Zum Impressum ... Zum Login ...

CCur

Die Funktion wandelt Zahlenwerte in Werte des Datentyps Currency um und rundet dabei auf die vierte Stelle hinter dem Komma.

Syntax:

CCur()

Parameter:

Expression (Datentyp Variant): Erwartet einen Zahlenwert im Bereich von -922.337.203.685.477,5808 bis 922.337.203.685.477,5807.

Beispiele:

CCur rundet auf die vierte Stelle nach dem Komma:

Debug.Print CCur(1.11115)

  1,1112

Debug.Print CCur(1.11114)

  1,1111

Wenn Sie einen Wert des Datentyps Currency kaufmnnisch auf zwei Stellen hinter dem Komma runden mchten, verwenden Sie folgende Funktion (die Round-Funktion von VBA rundet nicht kaufmnnisch, siehe Round-Funktion). Die Funktion erwartet einen Currency-Wert und die Anzahl der Dezimalstellen, auf die gerundet werden soll. Der Aufruf sieht beispielsweise so aus:

Debug.Print RoundCur(CCur(999.985),2)

999,99

 

Public Function RoundCur(ByVal curNumber As Currency, ByVal intDecimals As Integer) As Currency

    Dim F As Long

    F = 10 ^ intDecimals

    RoundCur = Int(curNumber * F + 0.5) / F

End Function

© 2003-2015 André Minhorst Alle Rechte vorbehalten.