Supportnet / Forum / Datenbanken
runden
Frage
Wie kann ich Zahlen in einem Formular auf zwei Stellen runden?
Antwort 1 von Friedel
Hi Flo
Welche Zahlen, welches Formular, welches Programm. Du mußt schon etwas genauer erklären, was du willst, sonst kann dir hier keiner helfen
cu friedel
Welche Zahlen, welches Formular, welches Programm. Du mußt schon etwas genauer erklären, was du willst, sonst kann dir hier keiner helfen
cu friedel
Antwort 2 von KawaVN800
Hi Florian!
Die folgende VBA-Funktion macht eine kaufmännische Rundung (5/4):
Function KfmRd(ZAHL As Double) As Double
Dim X, Z, Y As Double
X = Int(ZAHL * 100)
Z = ZAHL * 100
Y = Z - X
If Y = 0 Then
KfmRd = ZAHL
Exit Function
End If
If Abs(Y) >= 0.5 Then
If X > 0 Then
X = X + 1
Else
X = X - 1
End If
End If
KfmRd = X / 100
End Function
Ich hoffe, es hilft Dir weiter!
Ciao
Carlo (:-))
Die folgende VBA-Funktion macht eine kaufmännische Rundung (5/4):
Function KfmRd(ZAHL As Double) As Double
Dim X, Z, Y As Double
X = Int(ZAHL * 100)
Z = ZAHL * 100
Y = Z - X
If Y = 0 Then
KfmRd = ZAHL
Exit Function
End If
If Abs(Y) >= 0.5 Then
If X > 0 Then
X = X + 1
Else
X = X - 1
End If
End If
KfmRd = X / 100
End Function
Ich hoffe, es hilft Dir weiter!
Ciao
Carlo (:-))
Antwort 3 von Mick
Hallo, anbei eine Funktion, mit der Du Zahlen auf beliebig viele Stellen runden kannst:
Function WertRunden (x, a) As Double
Dim y As Double
On Error Resume Next
y = Int(x * 10 ^ a + .5) / 10 ^ a
WertRunden = y
End Function
x ist die zu rundende zahl
a ist die Anzahl Stellen nach dem Komma
Gruss Mick
Function WertRunden (x, a) As Double
Dim y As Double
On Error Resume Next
y = Int(x * 10 ^ a + .5) / 10 ^ a
WertRunden = y
End Function
x ist die zu rundende zahl
a ist die Anzahl Stellen nach dem Komma
Gruss Mick