「ビットカウント」の編集履歴（バックアップ）一覧はこちら

「ビットカウント」(2010/10/22 (金) 18:05:43) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

#asciiart(blockquote){

Function numofbits(bits As Long) As Long
    bits = (bits And &h55555555) + (bits >> 1 And &h55555555)
    bits = (bits And &h33333333) + (bits >> 2 And &h33333333)
    bits = (bits And &h0f0f0f0f) + (bits >> 4 And &h0f0f0f0f)
    bits = (bits And &h00ff00ff) + (bits >> 8 And &h00ff00ff)
    numofbits = (bits And &h0000ffff) + (bits >>16 And &h0000ffff)
End Function

}