Sign in Get Started

excel vba check if certain bits are set in 64-bit longlong integer

Ron Jensen 
'If n is a 4-byte Long Integer, the Low (Left) Word is:
If n And &H8000& Then
  	LoWord = n Or &HFFFF0000
Else
    LoWord = n And &HFFFF&
End If

'If n is a 4-byte Long Integer, the High (Right) Word is:
HiWord = (n And &HFFFF0000) \ &H10000
View another examples Add Own solution
Log in, to leave a comment

4.13
7
King Benjamin 90 points 

                                    '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 
'
'
'

4.13 (8 Votes)
0
4.11
9
Torek 120 points 

                                    Function LongToBits$(ByVal n&)
    Dim i&
    LongToBits = "00000000000000000000000000000000"
    If n And &H80000000 Then
        Mid$(LongToBits, 1, 1) = "1"
        n = n And Not &H80000000
    End If
    For i = 32 To 2 Step -1
        If n And 1 Then Mid$(LongToBits, i, 1) = "1"
        n = n \ 2
    Next
End Function

'------------------------------------------------------------------------------

MsgBox ByteToBits(0)			'<--displays: 00000000000000000000000000000000
MsgBox LongToBits(293781237)	'<--displays: 00010001100000101011111011110101
MsgBox ByteToBits(-1)			'<--displays: 11111111111111111111111111111111

4.11 (9 Votes)
0
0
6
Seth Projnabrata 90 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&, 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 < 63 Then LongLongBitIsSet = theLongLong 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), 0)            '<--displays: True
MsgBox LongLongBitIsSet(&H7FFFFFFFFFFFFFff^, 62)  '<--displays: True
'
'
'

0
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
excel vba bits to long excelvba 32-bit long integer to bits excel vba 32-bit long integer to bits excel vba 32bit long integer to bits excel vba long integer to bits excel vba long to bit string 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 vba check if specific bits set in int32 excel 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 excel vba check if specific bits set in long integer 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 excelvba check if bit is set in 64-bit longlong integer excel vba 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 excelvba is specific bit set in 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 excelvba is bit set long xlvba is bit set long excel vba is bit set long excel vba is bit set integer xl vba check integer bit excelvba check integer bit excel vba check integer bit excel vba integer is bit set excel vba is bit set in integer vba is bit set in integer excel vba is bit set in byte excel vba bits to integer xl vba bits to byte excelvba bits to byte vba double vs long single long double vba vba long how to input long into string in c excel-vba long to bits excelvba long to bits excel vba long to bits excel vba make integer form two bytes vba make long from two shorts vba low word from Long Integer
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