十六进制数转化成十进制数(求助!!!)

Question

有一组数如下
60 4E 97 4B = 5184.30
90 DF 6E 4B = 4111.40
0C 08 A5 4B = 5650.90
88 6D A0 4B = 5515.10
请问怎样才能把十六进制数转化成十进制?请高手帮解决一下，谢谢了

Answer 1

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)    Dim sngValue As Single
    dim bytValue(3) as byte
    
    bytvalue(0)=&h60
    bytvalue(1)=&h4E
    bytvalue(2)=&h97
    bytvalue(3)=&h4B
 
    CopyMemory sngValue, bytvalue(0), 4

Answer 2

Option ExplicitPrivate Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)Public Function ByteToSingle(A As Byte, B As Byte, C As Byte, d As Byte) As Single
    Dim i As Integer
    Dim InByte(3) As Byte
    Dim OutSng As Single
    
    InByte(0) = A
    InByte(1) = B
    InByte(2) = C
    InByte(3) = d
    CopyMemory OutSng, InByte(0), 4
    ByteToSingle = OutSng
End FunctionPrivate Sub Form_Load()
    Dim i As Single
    
    i = ByteToSingle(&H60, &H4E, &H97, &H4B)
End Sub如果楼主提供的是浮点数的话，上述方法是正解不过我用楼主提供的数试了一下，好像结果与楼主给的结果不符楼主是不是应该确定一下数据类型？