【 ktIs日 】

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

【 構 文 】

ktIs日(

日, [月], [年] )

返却値	‥‥‥	Boolean型
日	‥‥‥	Variant 型
月	‥‥‥	Variant 型  (省略可、１〜１２)
年（西暦）	‥‥‥	Variant 型  (省略可)

【 返 却 値 】

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