VBA/Excel/Access/Word/Math Functions/Sgn

Sgn(0) returns 0

 
Sub mathDemo13()
   Debug.Print Sgn(0)
End Sub

Sgn(-7) returns -1

 
Sub mathDemo12()
   Debug.Print Sgn(-7)
End Sub

Sgn(number) returns -1 if number is negative, 0 if number is 0, 1 if number is positive.

 
Sub mathDemo11()
   Debug.Print Sgn(7)
End Sub

Sgn() Returns the sign of a number.

 
Sub mathF7()
    Debug.Print Sgn(-9)
End Sub