Convert float to bytes
- Dhananjaya
- Posts: 2
- Joined: Tue Jul 21, 2009 11:02 pm
Convert float to bytes
How to convert float value to bytes?
Re: Convert float to bytes
Code: Select all
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
hpvDest As Any, hpvSource As Any, _
ByVal cbCopy As Long)
Private Function FloatTo4BytesString(sng As Single) As String
Dim str1 As String
str1 = String(4, vbNullChar)
Call CopyMemory(ByVal str1, sng, 4)
For i = 1 To 4
Debug.Print Asc(Mid(str1, i, 1)); " ";
Next
FloatTo4BytesString = str1
End Function