投稿日 | : 2007/03/20(Tue) 09:49 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re^2: 和暦の入力チェック |
この場合の IsDate 関数 は厳密に言えば間違っているような気がするのは
私だけでしょうかね。
日付までチェックする必要がないのならいいのですが。
関数を自作するのも一手かな?
Private Sub Command1_Click()
Debug.Print IsDate("昭和64年1月15日")
Debug.Print IsDate("平成1年1月1日")
Debug.Print IsDate("平成1年2月29日")
Dim Myggg As String
Myggg = Left$(Format$("1989/1/7", "gggee年mm月dd日"), 2)
Debug.Print Myggg
Myggg = Left$(Format$("1989/1/8", "gggee年mm月dd日"), 2)
Debug.Print Myggg
End Sub