FAQ 0050: Wie kann ich Zahlen runden?

Antwort  

Die folgenden drei Routinen zeigen die verschiedenen Möglichkeiten der Rundung:

'   Rundet so, wie sich das gehört!
Public Function Round( _
                ByVal Number As Double, _
                Optional ByVal NumDigitsAfterDecimal As Integer = 0 _
                ) As Double
    Round = Int(Number * 10 ^ NumDigitsAfterDecimal + 0.5) _
                / 10 ^ NumDigitsAfterDecimal
End Function

'   Rundet immer auf!
Public Function Ceil( _
                ByVal Number As Double, _
                Optional ByVal NumDigitsAfterDecimal As Integer = 0 _
                ) As Double
    Ceil = Int(Number * 10 ^ NumDigitsAfterDecimal + 1) _
                / 10 ^ NumDigitsAfterDecimal
End Function

'   Rundet immer ab!
Public Function Floor( _
                ByVal Number As Double, _
                Optional ByVal NumDigitsAfterDecimal As Integer = 0 _
                ) As Double
    Floor = Int(Number * 10 ^ NumDigitsAfterDecimal) _
                / 10 ^ NumDigitsAfterDecimal
End Function

Listing 1: Verschiedene Rundungsmöglichkeiten

Ihre Meinung  

Falls Sie Fragen zu dieser FAQ haben, Ihre Erfahrung mit anderen Nutzern austauschen möchten oder auf eine Ergänzung hinweisen möchten, dann teilen Sie uns diese bitte in einem der unten vorhandenen Themen oder über einen neuen Beitrag mit. Hierzu können sie einfach einen Beitrag in einem zum Thema passenden Forum anlegen, welcher automatisch mit dieser Seite verknüpft wird.