Share via

BITTEST( ) (Función)

  • Artículo

Devuelve Verdadero (.T.) si un bit especificado de un valor numérico se establece en 1; de lo contrario, devuelve Falso (.F.).

BITTEST(nExpression1, nExpression2)

Valores devueltos

Logical

Parámetros

  • nExpression1
    Especifica el valor numérico en el que se comprueba un bit. Si nExpression1 no es un entero, se convertirá en un entero antes de comprobar su bit.
  • nExpression2
    Especifica la posición de bit de nExpression1 que se comprueba. nExpression2 puede ir de 0 a 31; 0 es el bit situado más a la derecha.

Ejemplo

El ejemplo siguiente usa BITTEST( ) para determinar si una serie de enteros son pares. Si un entero es par, la función IsEven devuelve Verdadero (.T.); de lo contrario, devuelve Falso (.F.).

CLEAR
? '2 even? '
?? IsEven(2)  && Even, .T. returned
? '3 even? '
?? IsEven(3)  && Not even, .F. returned
? '0 even? '
?? IsEven(0)  && Even, .T. returned
? '-13 even? '
?? IsEven(-13)  && Not even, .F. returned

Function IsEven
   PARAMETER nInteger
   RETURN NOT BITTEST(nInteger, 0)

Vea también

BITAND( ) | BITCLEAR( ) | BITLSHIFT( ) | BITNOT( ) | BITOR( ) | BITRSHIFT( ) | BITSET( ) | BITXOR( )