Sgn
Returns the sign part of a number
Declare Function Sgn ( 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.
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.
The output would look like:
Syntax
Declare Function Sgn ( ByVal number As Integer ) As Integer
Declare Function Sgn ( ByVal number As LongInt ) As LongInt
Declare Function Sgn ( ByVal number As Double ) As Double
Usage
result = Sgn( number )
Parameters
number
the number to find the sign of
Return Value
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.
Description
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.
Example
Dim N As Integer = 0
Print Sgn ( -1.87 )
Print Sgn ( 0 )
Print Sgn ( 42.658 )
Print Sgn ( N )
Print Sgn ( -1.87 )
Print Sgn ( 0 )
Print Sgn ( 42.658 )
Print Sgn ( N )
The output would look like:
-1 0 1 0
Dialect Differences
- In the -lang qb dialect, this operator cannot be overloaded.
Differences from QB
- None
See also