• Home
 · 
• Math/Dates
 · 
• NumtoBytesEx: Convertes any unsinged Long or unsigned Double number into array of bytes.

NumtoBytesEx: Convertes any unsinged Long or unsigned Double number into array of bytes.

NumtoBytesEx: Convertes any unsinged Long or unsigned Double number into array of bytes.

Rate NumtoBytesEx: Convertes any unsinged Long or unsigned Double number into array of bytes.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

' Author                : Imran Zaheer
' Contact               : [email protected]
' Date                  : March 2001
' Function BytesToNumEx : Convertes any unsinged Long or unsigned Double
'                         number into array of bytes
'
'
' Parameters :
'  (All parameters are reuuired: No Optional)
'     numValue    : a number (unsinged long or unsinged double)
'     retArray    : a dynamic array of bytes, after execution of
'                   this procedure this array contains the resultant
'                   bytes
'
' Example :
'      dim myArray() as byte
'      dim i as Integer, lngVal as Long
'      lngVal= 168735934
'      Call NumToBytesEx(lngVal, myArray)
'      For i = LBound(myArray) To UBound(myArray)
'          MsgBox myArray(i)
'      Next i

Sub NumToBytesEx(numValue As Double, retArray() As Byte)
Dim i As Integer
Dim lng256 As Double, loopEnd As Integer
Dim ByteArray() As Byte
Dim strTmp As String
Dim lngVal As Long, dblVal As Double

    On Error Resume Next
    lngVal = CLng(numValue)
    If Err.Number <> 0 Then
        On Error GoTo 0
        On Error Resume Next
        dblVal = CDbl(numValue)
        If Err.Number <> 0 Then
            MsgBox "The datatype could not be determined ...!", vbCritical
            Exit Sub
        Else
            loopEnd = 8
        End If
    Else
        loopEnd = 4
    End If
    On Error GoTo 0
    
    lng256 = 256
    lng256 = lng256 ^ (loopEnd - 1)
    
    ReDim ByteArray(1 To loopEnd)
    
    For i = 1 To loopEnd
        ByteArray(i) = Fix(numValue / lng256)
        numValue = numValue - (ByteArray(i) * lng256)
        lng256 = lng256 / 256
    Next i
    
    retArray = ByteArray
End Sub