SGN

 

語法

            Result = SGN(Argument)

 

操作

        回傳浮點數的正負符號值。

  • Argument – SGN函數的浮點運算元。

  • Result – 接受SGN函數回傳值的SHORT變數。

 

說明

            SGN指令回傳符點數的正負符號值。浮點數為正數,則回傳值為1。浮點數為負數,則回傳值為-1。浮點數為0,則回傳值為0。
 
 
範例
 

Sub Main()
   
Dim Result As Short
    Result =
SGN(-0.1)
   
Debug "SGN(-0.1) = ", Result, CR
    Result =
SGN(0)
   
Debug "SGN(0) = ", Result, CR
    Result =
SGN(0.1)
   
Debug "SGN(0.1) = ", Result, CR
End Sub