VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日: 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


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

- VBレスキュー(花ちゃん) - - Web Forum -