Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As Long, ByVal Source As Long, ByVal Length As Long)
Private Sub Command1_Click()
Dim B() As Byte
ReDim B(1 To 8) As Byte
B(1) = 212
B(2) = 205
B(3) = 39
B(4) = 183
B(5) = 79
B(6) = 196
B(7) = 226
B(8) = 64
Dim dblRepr As Double
dblRepr = 0
Call CopyMemory(VarPtr(dblRepr), VarPtr(B(1)), 8)
Debug.Print "38434.4911=" & CSTR(dblRepr)
End Sub
Получить число типа Double
Как в VB получить число типа Double (8 байт) из массива чисел типа байт. Например в массив из восьми элементов записано 212 205 39 183 79 196 226 64. Если все это конвертировать из машинного кода в число типа Double, то должно получиться 38434,49110.
Цитата:
Originally posted by AlexIII
Как в VB получить число типа Double (8 байт) из массива чисел типа байт. Например в массив из восьми элементов записано 212 205 39 183 79 196 226 64. Если все это конвертировать из машинного кода в число типа Double, то должно получиться 38434,49110.
Как в VB получить число типа Double (8 байт) из массива чисел типа байт. Например в массив из восьми элементов записано 212 205 39 183 79 196 226 64. Если все это конвертировать из машинного кода в число типа Double, то должно получиться 38434,49110.
Сойдет?
Код:
Спасибо большое, а то я уже начал длл писать на CBuilder, которая бы использовала функцию memcpy.
Ну, все хорошо, что хорошо кончается. Спасибо.
Ну, все хорошо, что хорошо кончается. Спасибо.