Declare Function Sgn Overload ( ByVal number As Integer ) As Integer
Declare Function Sgn ( ByVal number As LongInt ) As LongInt
Declare Function Sgn ( ByVal number As Double ) As Double

result = Sgn( number )

number

Returns the sign part of number.

• If number is greater than zero, then Sgn returns 1.
  
• If number is equal to zero, then Sgn returns 0.
  
• If number is less than zero, then Sgn returns -1.
  
  

The required number argument can be any valid numeric expression. Unsigned numbers will be treated as if they were signed, i.e. if the highest bit is set the number will be treated as negative, and -1 will be returned.

The Sgn unary Operator can be overloaded with user defined types.

Dim N As Integer = 0

Print Sgn ( -1.87 )
Print Sgn ( 0 )
Print Sgn ( 42.658 )
Print Sgn ( N )

The output would look like:

-1
0
1
0

• In the -lang qb dialect, this operator cannot be overloaded.
  
  

• None
  
  

• Abs
  
• Operator