[COLOR="Indigo"][B]Function arr_infsup(v As Double, p As Double, Optional o As Double = 0) As Double
Dim q As Double, r As Double
v = v - o: q = v / p: r = v * p
arr_infsup = o + (Fix(Abs(q)) * Sgn(r) + ((q - Fix(q)) <> 0) * (r > 0)) * p
End Function[/B][/COLOR]