閉じる

入力されたデータが日付になるか　（IsDate関数）


'入力されたデータが日付を判定するには　IsDate関数を使います。

'日付として判断されるには、区切り文字として、「/」「.」「-」が含まれている必要があります。

'したがって、数値8文字で入力させて日付として正しいかを判断するには

'入力文字列を「/」等で区切り、それを IsDate関数で調べます。

'

'入力データ　inDAY が日付になるかを判定する



　If IsNull( inDAY ) = true then

　　Msgbox "日付が未入力です。"

  EndIf



　If Len( inDAY ) = 0 then

　　Msgbox "日付が未入力です。"

  EndIf



　If Len( inDAY ) <> 8 then

　　Msgbox "入力データの桁数は数値8桁です。"

  EndIf



　IF IsDate（Mid（inDAY,1,4) & "/" & Mid( inDAY,5,2) & "/" & Mid( inDAY,7,2) = False then

　　Msgbox "入力データは日付ではありません。"

  EndIF