Sign in Get Started

vba check if certain bits are set in longlong integer

Lavios 
'Fast VBA function to test if specific bits are set 
'within a 64-bit LongLong integer. If ALL specified bits are set then 
'this function returns True. If ANY of the specified bits are
'not set then this function returns False.

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

'Note: bits can be specified in any order.
'Note: any number of bits can be specified in one call.
'Note: the LongLong data type is only available in 64-bit VBA.


Function LongLongBitsAreSet(theLongLong^, ParamArray bits()) As Boolean
    Static i&, b^()
    If UBound(bits) = -1 Then Exit Function
    If (Not Not b) = 0 Then
        ReDim b(0 To 62)
        For i = 0 To 62
            b(i) = 2 ^ i
        Next
    End If
    For i = 0 To UBound(bits)
        If bits(i) < 0 Then Exit Function
        If bits(i) > 62 Then Exit Function
        If (theLongLong And b(Int(bits(i)))) = 0 Then Exit Function
    Next
    LongLongBitsAreSet = True
End Function


'----------------------------------------------------------------------------------------------------------------------------------------------------------------------
MsgBox LongLongBitsAreSet(255, 7)                    '<--displays: True                   255 = 00000000 00000000 00000000 00000000 00000000 00000000 00000000 11111111
MsgBox LongLongBitsAreSet(230, 0)                    '<--displays: False                  230 = 00000000 00000000 00000000 00000000 00000000 00000000 00000000 11100110
MsgBox LongLongBitsAreSet(85, 0, 2, 6, 4)            '<--displays: True                    85 = 00000000 00000000 00000000 00000000 00000000 00000000 00000000 01010101
MsgBox LongLongBitsAreSet(85, 0, 2, 5, 4)            '<--displays: False                   85 = 00000000 00000000 00000000 00000000 00000000 00000000 00000000 01010101
MsgBox LongLongBitsAreSet(485, 2, 7, 5)              '<--displays: True                   485 = 00000000 00000000 00000000 00000000 00000000 00000000 00000001 11100101
MsgBox LongLongBitsAreSet(24585, 14, 13, 3)          '<--displays: True                 24585 = 00000000 00000000 00000000 00000000 00000000 00000000 01100000 00001001
MsgBox LongLongBitsAreSet(&H7D12EACB, 24, 26, 30, 7) '<--displays: True            2098391755 = 00000000 00000000 00000000 00000000 01111101 00010010 11101010 11001011
MsgBox LongLongBitsAreSet(2 ^ 62 + 1, 62, 0)         '<--displays: True   4611686018427387905 = 01000000 00000000 00000000 00000000 00000000 00000000 00000000 00000001 
'
'
'
View another examples Add Own solution
Log in, to leave a comment

4.13
8
Michael Ho 110 points 

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

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

'Note: we do not inspect bit 63, the sign bit.
'Note: the LongLong data type is only available in 64-bit VBA.


Function LongLongBitIsSet(theLongLong^, bit As Byte) As Boolean
    Static i&amp;, b^()
    If (Not Not b) = 0 Then
        ReDim b(0 To 62)
        For i = 0 To 62
            b(i) = 2 ^ i
        Next
    End If
    If bit &lt; 63 Then LongLongBitIsSet = theLongLong And b(bit)
End Function


'------------------------------------------------------------------
MsgBox LongBitIsSet(255, 7)                       '&lt;--displays: True
MsgBox LongBitIsSet(230, 0)                       '&lt;--displays: False
MsgBox LongBitIsSet(16384, 14)                    '&lt;--displays: True
MsgBox LongBitIsSet(-16383, 0)                    '&lt;--displays: True
MsgBox LongBitIsSet(&amp;H7FFFFFFF, 0), 0)            '&lt;--displays: True
MsgBox LongLongBitIsSet(&amp;H7FFFFFFFFFFFFFff^, 62)  '&lt;--displays: True
'
'
'

4.13 (8 Votes)
0
3.67
3
Flim Flam 80 points 

                                    '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.
'Note: any number of bits can be specified in one call.


Function LongBitIsSet(theLong&amp;, bit As Byte) As Boolean
    Static i&amp;, b&amp;()
    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 &lt; 31 Then LongBitIsSet = theLong And b(bit)
End Function


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

3.67 (3 Votes)
0
Are there any code examples left?
Find Add Code snippet
New code examples in category VBA
SHOW MORE
Create a Free Account
Unlock the power of data and AI by diving into Python, ChatGPT, SQL, Power BI, and beyond.
Sign up
Develop soft skills on BrainApps
Complete the IQ Test
Relative searches
excelvba 32-bit long integer to bits excel vba 32-bit long integer to bits excel vba test if specific bits set in 64-bit longlong integer excel vba check if specific bits set in 64-bit longlong integer excel vba check if specific bits set in 64bit longlong integer excel vba check if specific bits set in longlong integer excel vba check if specific bits set in longlong vba check if specific bits set in longlong excelvba check if specific bits are set in longlong excel vba check if specific bits are set in longlong excel vba check if specific bits are set in 64-bit longlong integer excelvba check if specific bits are set in 64-bit longlong integer vba check if specific bits are set in 64-bit longlong integer vba check if certain bits are set in 64-bit longlong integer excel vba check if certain bits are set in 64-bit longlong integer excel vba check if certain bits are set in 64bit longlong integer excel vba check if certain bits are set in longlong integer vba check if certain bits are set in longlong integer vba check if certain bits are set in longlong vba check if particular bits are set in longlong vba check if particular bits set in longlong vba check if particular bits set in longlong integer vba check if particular bits set in 64-bit longlong integer vba test if particular bits set in 64-bit longlong integer vba test if particular bits set in 64-bit longlong vba test if particular bits set in 64bit longlong vba test if particular bits set in longlong vba test if particular bits set in longlong integer excel vba test if particular bits set in long integer excel vba test if specific bits set in long vba check if specific bits set in int32 excel vba test if specific bits are set in 32-bit long integer vba test if specific bits set in long integer excel vba test if specific bits are set in long integer vba check if specific bits are set in long integer excel xl vba check if specific bits are set in long integer excelvba check if specific bits are set in long integer excel vba check if specific bits are set in long integer vba check if specific bits are set in long integer excel vba check if specific bits set in long integer vba check if specific bits set in long integer vba check if specific bits set in long excel vba are bits set in long excel vba check if particular bits are set in integer xlvba check if specific bits set in integer excelvba check if specific bits set in integer xlvba check if specific bits are set in integer xl vba check if specific bits are set in integer xlvba test if specific bits are set in integer xl vba test if specific bits are set in integer vba test if specific bits are set in integer vba test if specific bits set in integer excel Check if bits are SET in vba Check if bits are SET in vba excelvba test if specific bits are set in byte excel vba test if specific bits are set in byte excelvba check if specific bits set in byte excel vba check if specific bits set in byte xl vba are specific bits set in byte excel vba are bits set in byte excel vba inspect if bit is set in 64-bit longlong integer vba inspect if bit is set in 64-bit longlong integer xlvba check if bit is set in 64-bit longlong integer xl vba check if bit is set in 64-bit longlong integer excel vba check if bit is set in 64-bit longlong integer excelvba check if bit is set in 64-bit longlong integer vba check if bit is set in 64-bit longlong integer xlvba check if bit set in 64-bit longlong integer xl vba check if bit set in 64-bit longlong integer excelvba check if bit set in 64-bit longlong integer excel vba check if bit set in 64-bit longlong integer vba check if bit set in 64-bit longlong integer xlvba is bit set in 64-bit longlong integer xl vba is bit set in 64-bit longlong integer excelvba is bit set in 64-bit longlong integer excel vba is bit set in 64-bit longlong integer vba is bit set in 64-bit longlong integer xlvba is bit set in 64-bit integer xl vba is bit set in 64-bit integer excelvba is bit set in 64-bit integer excel vba is bit set in 64-bit integer vba is bit set in longlong integer vba is specific bit set in longlong integer excelvba is specific bit set in longlong integer excel vba is specific bit set in longlong integer xl vba is specific bit set in longlong integer xl vba is specific bit set in long integer xlvba is specific bit set in long integer excelvba is specific bit set in long integer excel vba is specific bit set in long integer vba is specific bit set in long integer xlvba check if bit is set in 32-bit long integer xl vba check if bit is set in 32-bit long integer excelvba check if bit is set in 32-bit long integer excel vba check if bit is set in 32-bit long integer vba check if bit is set in 32-bit long integer xlvba check if bit is set in long xl vba check if bit is set in long excelvba check if bit is set in long excel vba check if bit is set in long vba check if bit is set in long excelvba is bit set long xlvba is bit set long xl vba is bit set long vba is bit set long excel vba is bit set long
Made with love
This website uses cookies to make IQCode work for you. By using this site, you agree to our cookie policy

Welcome Back!

Sign up to unlock all of IQCode features:
  • Test your skills and track progress
  • Engage in comprehensive interactive courses
  • Commit to daily skill-enhancing challenges
  • Solve practical, real-world issues
  • Share your insights and learnings
Create an account
Sign in
Recover lost password
Or log in with
Not registered?
Sign up takes less than a minute

Create a Free Account

Sign up to unlock all of IQCode features:
  • Test your skills and track progress
  • Engage in comprehensive interactive courses
  • Commit to daily skill-enhancing challenges
  • Solve practical, real-world issues
  • Share your insights and learnings
Create an account
Sign up
Or sign up with
By signing up, you agree to the Terms and Conditions and Privacy Policy. You also agree to receive product-related marketing emails from IQCode, which you can unsubscribe from at any time.
Creating a new code example
Code snippet title
Source