| |
kawataです、お世話になっております。
よろしくお願いします。
(Windows2000/Excel2000)
テキストボックスから取得した８桁の数字を実行ルーチンへ渡す前に
その数字が日付かどうかをチェックしたいのですが。
入力形式が、ｙｙｙｙｍｍｄｄの８桁というのは、使う側の要望です（＾＾；。
・頭が"20"、かつ、８桁、かつ、数字のみ
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 を組み込むのはは考えましたが
もっとスマートな方法があるような気がしまして。
（上の場合、小の月、２月等は、また面倒だし（＾＾；）
入力した８桁の数字が、日付として有効か無効かの判定です。
ぜひ、よろしくお願いします。
|
|
