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

Sgn(0) returns 0

   <source lang="vb">

Sub mathDemo13()

  Debug.Print Sgn(0)

End Sub

</source>
   
  

Sgn(-7) returns -1

   <source lang="vb">

Sub mathDemo12()

  Debug.Print Sgn(-7)

End Sub

</source>
   
  

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

   <source lang="vb">

Sub mathDemo11()

  Debug.Print Sgn(7)

End Sub

</source>
   
  

Sgn() Returns the sign of a number.

   <source lang="vb">

Sub mathF7()

   Debug.Print Sgn(-9)

End Sub

</source>