New user
Beiträge: 1
Ort: D Neuwied am Rhein | Falls jemand Probleme beim Runden hat, nachstehend meine Routine:
Function KHM_Round(Wert, AnzahlNkStellen As Variant) As Variant
Rem Wert / NkStellen = Anzahl Nachkomma-Stellen
If (Nz(Wert, "") = "") Then Wert = 0
KHM_Round = Int(Abs(Wert) * 10 ^ AnzahlNkStellen + 0.5) / 10 ^ AnzahlNkStellen * Sgn(Wert)
End Function
|