VBA提高篇_12_1 VBA判断奇偶数的方法

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中判断奇偶的简便方法