LONG2FLOAT

 
語法

        Result = LONG2FLOAT(Argument)

 

操作

        Long型態數值轉換為浮點型態數值。

  • Argument LONG2FLOAT函式的Long運算元。
  • Result 浮點變數用來承接LONG2FLOAT函數回傳值。

 

說明 

        LONG2FLOAT指令將Long型態數值轉換為浮點型態數值。浮點型態數值為從 +2147483647 -2147483648。由於使用的是單精確度浮點數,所以LONG變數可能無法很精確的表示出來。回傳的是最接近的浮點整數值。當你在應用程式中使用這個指令時需要很小心。你可以利用二進位形式來檢視LONG值是否被精確的表示。去除二進位前端及後端的0,如果剩餘的位元數大於24,則該數值無法精確表示。

 

範例

        由於使用的是單精確度浮點數,數值2147483647 無法精確的顯示。回傳的值會是最接近的2147483648

 
 Sub Main()
    Dim MyLong As Long
   
Dim MyFloat As Float   

    MyLong = -
2147483648
    MyFloat =
LONG2FLOAT(MyLong)        ' the result is -2147483000
    Debug "LONG2FLOAT of -2147483648 : ", MyFloat, CR
    MyLong =
2147483647
    MyFloat =
LONG2FLOAT(MyLong)        ' the result is 2147484000
    Debug "LONG2FLOAT of 2147483647 : ", MyFloat, CR
End Sub