如何将浮点转化为字节型变量？

[majian4]

怎样将single型的数转为四位的byte型？
望有高手给予详细指点 !!

[benyfeifei]

Dim bytData(0 To 3) As Byte
Dim sngData As Single

sngData = 3.12!

CopyMemory ByVal VarPtr(bytData(0)), ByVal VarPtr(sngData), 4

Dim i As Integer


For i = 0 To 3

Debug.Print Hex(bytData(i)) & vbCrLf

Next

[benyfeifei]

CopyMemory 的声明如下：
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

[of123]

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

Dim a As Single, b(3) As Byte, c As Single

a = 1.5
CopyMemory b(0), a, 4

Debug.Print b(0)
Debug.Print b(1)
Debug.Print b(2)
Debug.Print b(3)

CopyMemory c, b(0), 4
Debug.Print c

[wxrwan]

同意!