---

Hallo,

ich versuche gerade mit VBA eine Berechnung zu machen. und zwar würde ich gerne mein ergebnis auf den nächsten Zehner Runden

Beispiel:  Ergebnis 24,5 soll auf 30 gerundet werden

In iLogic gibt es dafür Ceiling:

X = 10
Ceil(24,5 / X) *X  = 30

In VBA habe ich bis jetzt nur Round und Math.Round gefunden, das hilft mir aber leider nicht weiter weil es nur die Nachkommastellen rundet

Gibt es irgendwas mit dem man das realisieren kann in VBA?

Gruß
Daniel

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Daniel,

Wie wäre CInt

Code:

---

Floor = CInt(24.5) 'ergibt 24
Ceiling = CInt(24.5) + 1 ' +1 ergibt Ceiling

---

------------------
Gruß Roland

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ganz so einfach nun auch wieder nicht. Du kannst nicht einfach eine 1 dazuaddieren, wenn die Zahl ganzzahlig ist.

Code:

---

Public Function Ceiling(ByVal X As Double, Optional ByVal Multiple As Double = 1) As Double
    Ceiling = (Int(X / Multiple) - (X / Multiple - Int(X / Multiple) > 0)) * Multiple
End Function

Ceiling(1.9  , 1) = 2
Ceiling(1    , 1) = 1
Ceiling(20  , 1) = 20
Ceiling(-12.2, 1) = -12
Ceiling(-0.2 , 1) = 0
Ceiling(0.3  , 1) = 1
Ceiling(23.1 , 1) = 24

Ceiling(1.9  , 10) = 10
Ceiling(1    , 10) = 10
Ceiling(20   , 10) = 20
Ceiling(-12.2, 10) = -10
Ceiling(-0.2 , 10) = 0
Ceiling(0.3  , 10) = 10
Ceiling(23.1 , 10) = 30

---

------------------
Patrick

EDIT: Feinputz

[Diese Nachricht wurde von Patrick Weber am 17. Okt. 2016 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke Jungs!

Die Ceiling Function funktioniert wunderbar

Gruß
Daniel

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP