64位十六进制转十进制浮点数

Question

6B2F 7873 2CB9 F840
存储顺序如上，如何转换为十进制浮点数
十进制浮点数为 101266.78

Answer 1

看IEEE浮点数的表示方法就知，请仔细看。我看了好久才弄明白。

Answer 2

哈哈哈哈哈哈...........有个API能直接实现,嘿嘿..

Answer 3

Dim a(7) As Byte, d As Double
'6B2F 7873 2CB9 F840
a(0) = &H6B
a(1) = &H2Fa(2) = &H78
a(3) = &H73a(4) = &H2C
a(5) = &HB9a(6) = &HF8
a(7) = &H40
CopyMemory d, a(0), 8
Debug.Print dDouble数据本身就是占64Bit，直接Copy就行，你的数据是怎么来的，若是Byte数组，就不用上面的赋值了，若是连续的Byte数组，那就更简单了，一次Copy进Double数组，完成批量转换。