In the PROMOTIC system it is better to use the Pm.Sign method.
number | (Double) Any valid numeric expression. |
---|
Dim nVar1, nVar2, nVar3, nSign
nVar1 = 12
nVar2 = -2.4
nVar3 = 0
nSign = Sgn(nVar1) 'Returns 1
nSign = Sgn(nVar2) 'Returns -1
nSign = Sgn(nVar3) 'Returns 0