Функция BITTEST()

Возвращает значение "истина" (.T.), если заданный бит числового значения равен 1; в противном случае возвращается значение "ложь" (.F.).

Синтаксис:

BITTEST(nExpression1, nExpression2)

Параметры:
nExpression1
Задает числовое значение, в котором нужно проверить бит. Если значение nExpression1 не является целым, оно перед проверкой приводится к целочисленному виду.
nExpression2
Задает номер проверяемого бита числа nExpression1. Значение nExpression2 должно принадлежать диапазону от 0 до 31; бит 0 является самым правым битом.

Результат:
Логический

Пример:

* В следующем примере функция BITTEST( ) используется, чтобы
* определить, являются ли некоторые целые числа четными. Если число
* четное, функция IsEven возвращает "истина" (.T.), в противном случае 
* "ложь" (.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)

Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем.