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 = cDec(Abs(x)) * z + 0.5
y = (Int(y)) / z
ASA_Rnd = Sgn(x) * y
End Function