Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB4,VB5,VB6,VBS
Expertise: Intermediate
Apr 27, 1999

BitCount - The number of "1" bits in a number

' The number of 1's in a binary number
'
' This routine is based on the following property 
' of binary numbers: n And (n-1) always clears the
' least significant "1" bit in the number

Function BitCount (ByVal number As Long) As Integer
    Do While number
        number = number And (number - 1)
        BitCount = BitCount + 1
    Loop
End Function
Francesco Balena
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date