|
kawataです、お世話になっております。
よろしくお願いします。
(Windows2000/Excel2000)
テキストボックスから取得した8桁の数字を実行ルーチンへ渡す前に
その数字が日付かどうかをチェックしたいのですが。
入力形式が、yyyymmddの8桁というのは、使う側の要望です(^^;。
・頭が"20"、かつ、8桁、かつ、数字のみ
If Left(j_day, 2) <> "20" Or Len(j_day) <> 8 Or _
IsNumeric(j_day) = False Then
form_flg = 0: GoTo replay
End If
ってとこまでは自分で考ええたのですが、この8桁を日付として評価
したい場合は、どういうコードになるのでしょうか?。
Midで、月、日を抜き出して、
mm >= 01 AND mm <= 12
dd >= 01 AND dd <= 31 を組み込むのはは考えましたが
もっとスマートな方法があるような気がしまして。
(上の場合、小の月、2月等は、また面倒だし(^^;)
入力した8桁の数字が、日付として有効か無効かの判定です。
ぜひ、よろしくお願いします。
|
|