Возвращает значение "истина" (.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)