excel vba is specific bit set in long integer

'Extremely fast VBA function to convert a binary string to a 16-bit Integer: Function BitsToInteger%(bits$) Dim i& Static b() As Byte If LenB(bits) > 32 Then Exit Function If LenB(bits) = 32 Then b = bits Else b = String$(16 - Len(bits), "0") & bits End If For i = 2 To 30 Step 2 BitsToInteger = 2 * BitsToInteger Or (b(i) Xor 48) Next If (b(0) Xor 48) Then BitsToInteger = BitsToInteger Or &H8000 End Function 'Example: MsgBox BitsToInteger("1111111111111111") '<--displays: -1 MsgBox BitsToInteger("0111111111111111") '<--displays: 32767

vba is specific bit set in long integer

'Extremely fast VBA function to test if a specified bit is set 
'within a 32-bit Long integer.

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

'Note: we do not inspect bit 31, the sign bit.


Function LongBitIsSet(theLong&, bit As Byte) As Boolean
    Static i&, b&()
    If (Not Not b) = 0 Then
        ReDim b(0 To 30)
        For i = 0 To 30
            b(i) = 2 ^ i
        Next
    End If
    If bit < 31 Then LongBitIsSet = theLong And b(bit)
End Function


'------------------------------------------------------------------
MsgBox LongBitIsSet(255, 7)             '<--displays: True
MsgBox LongBitIsSet(230, 0)             '<--displays: False
MsgBox LongBitIsSet(16384, 14)          '<--displays: True
MsgBox LongBitIsSet(-16383, 0)          '<--displays: True
MsgBox LongBitIsSet(&H7FFFFFFF, 0)      '<--displays: True

Posted by: Guest on February-05-2021

Source

Code answers related to "excel vba is specific bit set in long integer"

Code answers related to "VBA"

Browse Popular Code Answers by Language

Answers for "excel vba is specific bit set in long integer"

Code answers related to "excel vba is specific bit set in long integer"

Code answers related to "VBA"

Browse Popular Code Answers by Language

Popular Programming Languages

Advertisements

Company

Compilers

Help

Connect with us