vb6 - 如何在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  

改编自这个答案