excel vba bit is set in byte

excel vba set bit in byte

'Extremely fast VBA function to test if a specified bit is set 
'within a Byte.

'Bits are numbered from 0 to 7, so the first (least significant) bit
'is bit 0.

Function ByteBitIsSet(theByte As Byte, bit As Byte) As Boolean
    Static i&, b() As Byte
    If (Not Not b) = 0 Then
        ReDim b(0 To 7)
        For i = 0 To 7
            b(i) = 2 ^ i
        Next
    End If
    If bit < 8 Then ByteBitIsSet = theByte And b(bit)
End Function

'------------------------------------------------------------------
MsgBox ByteBitIsSet(255, 7)      '<--displays: True
MsgBox ByteBitIsSet(230, 0)      '<--displays: False

Posted by: Guest on February-05-2021

Source

'Extremely fast VBA function to convert a binary string to a Byte: Function BitsToByte(bits$) As Byte Dim i& Static b() As Byte If LenB(bits) > 16 Then Exit Function If LenB(bits) = 16 Then b = bits Else b = String$(8 - Len(bits), "0") & bits End If For i = 0 To 14 Step 2 BitsToByte = 2 * BitsToByte Or (b(i) Xor 48) Next End Function 'Example: MsgBox BitsToByte("00001100") '<--displays: 12 MsgBox BitsToByte("10000001") '<--displays: 129 ' ' '

Code answers related to "excel vba bit is set in byte"

Code answers related to "VBA"

Browse Popular Code Answers by Language

Answers for "excel vba bit is set in byte"

Code answers related to "excel vba bit is set in byte"

Code answers related to "VBA"

Browse Popular Code Answers by Language

Popular Programming Languages

Advertisements

Company

Compilers

Help

Connect with us