【 ktIs月 】

指定した数値が「月」として妥当かどうかを判定します。

【 構 文 】

ktIs月(

月 )

返却値	‥‥‥	Boolean型
月	‥‥‥	Variant 型
基準日	‥‥‥	Variant(Date 又は 日付文字列)型    (省略可)

【 返 却 値 】

True    ‥‥‥  １≦月≦１２
False   ‥‥‥  上記以外（もしくは数値以外）

【 解 説 】

テキストボックス等での入力値判定に使用してください。
[Variant]で受けているので､
    呼び元での『数値チェック』『数値への型変換』
は必要ありません。
この関数は【数値チェック ＆ 月判定】です。

【 使 用 例 】

Private Sub txt月_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  If (txt月.Value = "") Then
    ' 何もしない
  ElseIf ktIs月(txt月.Value) Then    ' [CInt関数による型変換は必要なし]
    ' 正常
  Else
    MsgBox "１〜１２を入力して下さい"
    Cancel = True
  End If
End Sub