Creating hex values w/ consistant zero padding

[JeffAtBDK]

Enjoy

Function HexPad(Value As Long, Width As Integer) As String
Select Case Width
Case Is = 8
HexPad = IIf(Value < 16, "0", "") & Hex$(Value)
Case Is = 16
HexPad = IIf((Value < 16), "000", _
IIf((Value < 256), "00", _
IIf((Value < 4096), "0", ""))) & Hex$(Value)
Case Is = 32 'no larger than +2147483647
HexPad = IIf((Value < 16), "0000000", _
IIf((Value < 256), "000000", _
IIf((Value < 4096), "00000", _
IIf((Value < 65535), "0000", _
IIf((Value < 1048575), "000", _
IIf((Value < 16777215), "00", _
IIf((Value < 268435455), "0", _
""))))))) & Hex$(Value)
End Select
End Function

 

[gmmastros]

Here's another way to accomplish the same thing. This function will determine the data type of the variable passed in and return an appropriate string.

Public Function HexPad(ByVal Value As Variant) As String
    
    Select Case TypeName(Value)
        Case "Long"
            HexPad = VBA.Right$("00000000" & Hex(Value), 8)
        Case "Integer"
            HexPad = VBA.Right$("0000" & Hex(Value), 4)
        Case "Byte"
            HexPad = VBA.Right$("00" & Hex(Value), 2)
        Case Else
            HexPad = "Unknown"
    End Select
    
End Function

You can test it with the following code

    Dim iLong As Long
    Dim iInteger As Integer
    Dim iByte As Byte
    
    iByte = 255
    iInteger = iByte
    iLong = iByte
    
    Call MsgBox(HexPad(iLong))
    Call MsgBox(HexPad(iInteger))
    Call MsgBox(HexPad(iByte))
    
    iByte = 0
    iInteger = iByte
    iLong = iByte
    Call MsgBox(HexPad(iLong))
    Call MsgBox(HexPad(iInteger))
    Call MsgBox(HexPad(iByte))

-George

Strong and bitter words indicate a weak cause. - Fortune cookie wisdom