#define Bit( value, bit_number ) (((value) And (Cast(TypeOf(value), 1) Shl (bit_number))) <> 0)

result = Bit( value, bit_number )

value
bit_number

Возвращает значение Integer , а именно -1 если бит установлен, или 0 в противном случае.

Этот макрос расширяет целое число, указывающее, является ли указанный bit_number установленным в значении value. Ведет себя, как `(value And 1 Shl bit_number) <> 0`.

Print Bit(4,2)
Print Bit(5,1)
Print Bit(&H8000000000000000ULL,63)

вывод:

-1
0
-1

• Не допускается в диалекте -lang qb , но есть псевдоним __Bit.
  
  

• Новое в FreeBASIC
  
  

• BitSet
  
• BitReset