特殊・他 奇数か偶数かを判別する

※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。

※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。

Option Explicit


Function fKi_Gusuu(Target) As Boolean
'**************************************
'変数 Target が、奇数か偶数かを判別する
'**************************************
'返値は 偶数=True、奇数=False

If Target Mod 2 = 0 Then
    fKi_Gusuu = True
Else
    fKi_Gusuu = False
End If

'【Mod 演算子】
'2 つの数値の除算を行い、その剰余を返します。
'
'result = number1 Mod number2
'
'剰余演算子は、数式 number1 を数式 number2 で除算し、その余りを演算結果 result として返します。
'このとき浮動小数点数は整数に丸められます。
'次に示す式では、変数 A (演算結果 result) の値は 5 になります。
'
'A = 19 Mod 6.7
'
'一方または両方の式が Null 値のときは、演算結果 result も Null 値になります。
'Empty 値を持つ式は、0 として扱われます。

End Function

 

 

 

2000年01月01日|[VBサンプルコード]:[特殊・他]