vb中取正负号的函数?

vb中取正负号的函数?

VB6.0中Sgn(n)是指出 n变量的正负号。
Sgn 函数，返回一个 Variant (Integer)，指出参数的正负号。
语法：Sgn(number)

number>0，Sgn返回1；

number=0，Sgn返回0；
number<0，Sgn返回-1；
示例：使用 Sgn 函数来判断某数的正负号。
Dim MyVar1, MyVar2, MyVar3, MySign
MyVar1 = 12: MyVar2 = -2.4: MyVar3 = 0
MySign = Sgn(MyVar1) ' 返回 1。
MySign = Sgn(MyVar2) ' 返回 -1。
MySign = Sgn(MyVar3) ' 返回 0。