hmmm...
Not perfect.
Try with m.nNumber = -9 and m.nPrecision = 2
The result is -8.99

This is better:

Lparameters m.nNumber , m.nPrecision
Return Iif( m.nNumber < 0 , ;
-1 * Round(Int(Val(Transform(-1* m.nNumber*10^m.nPrecision+.5)))/10^m.nPrecision, m.nPrecision), ;
Round(Int(Val(Transform(m.nNumber*10^m.nPrecision+.5)))/10^m.nPrecision, m.nPrecision) )