BITTEST 函 数
确定一个数值的指定位是否为 1 如果为 1 返回 真 (.T.) 否则返回 假 (.F.)
语 法
BITTEST ( nExpression1 , nExpression2 )
返 值 类 型逻辑值 参 数 描 述
nExpression1
指 定 要 检 查 位 的 数 值 如 果 nExpression1 不 是 整 数 那 么 该 数 在 检 查 之 前将 被 转 换 成 整 数
nExpression2
指 定 nExpression1 需 要 检 查 的 位 置 nExpression2 的 取 值 范 围 为 0 到 31 0
表 示 最 右 端 位
示 例
以下 示例 使用 BITTEST 函数确定整数系列是否为奇数 如果整数为奇数 函数
IsEven 返回 真 (.T.) 否则 返回 假 (.F.)
CLEAR
? '2 even? '
?? IsEven(2) && 如为奇数 返回 真 (.T.)
? '3 even? '
?? IsEven(3) && 如不是奇数 返回 假 (.F.)
? '0 even? '
?? IsEven(0) && 如为奇数 返回 真 (.T.)
? '-13 even? '
?? IsEven(-13) && 如不是奇数 返回 假 (.F.)
Function IsEven
PARAMETER nInteger
RETURN NOT BITTEST (nInteger, 0 )
请 参 阅
BITAND ( ) , BITCLEAR( ) , BITLSHIFT( ) , BITNOT( ) , BITOR( ) ,
BITRSHIFT( ) , BITSET( ) , BITXOR( )