【VBA】偶数判定、奇数判定

主に偶数判定のための私的メモ。

判定	式	結果
		偶数の場合	奇数の場合
偶数判定	( N Eqv 0 ) And 1	0	1
	( N And 1 ) = 0	True	False
奇数判定	N And 1	0	1
	( N And 1 ) = 1	True	False

Eqv（XOr の逆パターン）

値１	値２	値１ Eqv 値２
False	False	True
False	True	False
True	False	False
True	True	True

Bit版

値１	値２	値１ Eqv 値２
0	0	1
0	1	0
1	0	0
1	1	1

整数版

値１	値２	値１ Eqv 値２
0	0	-1 (&HFFFF)
0	1	-2 (&HFFFE)
0	2	-3 (&HFFFD)
1	0	-2 (&HFFFE)
2	0	-3 (&HFFFD)
&HFFFF	0	0
&HFFFF	1	1
&HFFFF	2	2
&HFFFF	3	3
&HFFFE	0	0
&HFFFE	1	0
&HFFFE	2	3
&HFFFE	3	2