Конвертировать Double в 8-байтовый массив

Question

Я хочу преобразовать переменную Double в 8-байтовый массив, вот что я получил до сих пор:

Dim b(0 To 7) As Byte
Dim i As Integer

dim d as double
d = 1            ' for simplicity, I sit the variable "d" to 1

For i = 0 To 7
    Call CopyMemory(b(i), ByVal VarPtr(d) + i, 1)
Next i

' b => [0, 0, 0, 0, 0, 0, 240, 63]

Что я делаю не так?

Answer 1

Не используйте цикл, используйте аргумент длины:

Option Explicit

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

Sub DblToByte(ByVal D As Double)
    Dim Bytes(LenB(D) - 1) As Byte
    Dim I As Integer
    Dim S As String

    CopyMemory Bytes(0), D, LenB(D)

    For I = 0 To UBound(Bytes)
        S = S & CStr(Bytes(I)) & " "
    Next
    MsgBox S
End Sub

Private Sub Form_Load()
    DblToByte 1
    Unload Me
End Sub

Answer 2

Вы не показываете ваше объявление, но CopyMemory может быть объявлено по-разному для разных его применений. Попробуйте:

Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
                                                 ByVal pDst As Long, _
                                                 ByVal pSrc As Long, _
                                                 ByVal ByteLen As Long _
                                                 )