' Asymmetrisches Arithmetisches Runden fuer beliebige Anzahl Dezimalstellen
' - genauere Info MSDN - KB - Q196652
' Variabler Faktor ersatzlos gestrichen
 
Public Function ASA_Rnd(ByVal x As Double, _
                  Optional ByVal DecimalDigits As Long = 0) As Double
  Dim y As Double, z As Double
 
    z = 10 ^ DecimalDigits
    y = CDbl(Abs(x)) * z + 0.5
    y = (Int(y)) / z
    ASA_Rnd = Sgn(x) * y
End Function