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

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][特殊・他 奇数か偶数かを判別する]
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





Production Japan Import Application. Since 1998