BITTEST( ) (Función)
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( )