如何在VB6中将int转换为float

Question

我试图将一对整数转换为浮点变量（它们应该以浮点值转换）。我成功地将整数对转换为Long，我认为通过使用CDbl函数我无家可归。不幸的是，我只是在Double变量中得到相同的数字。 Long有一个像1141187758这样的数字，这应该像530.xxx那样翻译为浮点数。有谁可以帮我这个？

Answer 1

航空代码

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _ 
     ByRef Destination As Any, _ 
      ByRef Source As Any, _  
      ByVal Length As Long) 

Function LongToFloat(ByVal l As Long) as Single 
    Dim f As Single 
    CopyMemory f, l, LenB(l) 
    LongToFloat = f 
End Function  

改编自this answer