VBA 判断奇偶数的方法
Sub test()
Debug.Print 1 And 1 '1 奇数
Debug.Print 2 And 1 '0 偶数
Debug.Print 3 And 1 '1 奇数
Debug.Print 4 And 1 '0 偶数
End Sub
'返回:true为偶数,false为奇数
Function IsEven(i As Long) As Boolean
IsEven = ((i And 1) = 0)
End Function
利用 AND (与运算)
当大家用 i mod 2 = 0 来判断奇偶时,编译器会自动优化为 i AND 1 =0
判断一个数字的奇偶,基本原理就是看此数的二进制最后一位,
最后一位是 0,就是偶数
最后一位是 1,就是奇数i And 1 ,此操作就是取出 i 的最后一位。
转载: 自[推荐] vba中判断奇偶的简便方法