tagCANDY CGI VBレスキュー(花ちゃん) - 和暦の入力チェック(VB6.0) - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
和暦の入力チェック(VB6.0)
元に戻る スレッド一覧へ 記事閲覧
このページ内の検索ができます。(AND 検索や OR 検索のような複数のキーワードによる検索はできません。)

和暦の入力チェック(VB6.0) [No.127の個別表示]
     サンプル投稿用掲示板  VB2005 〜 用トップページ  VB6.0 用 トップページ
日時: 2007/09/12 14:09
名前: 花ちゃん

***********************************************************************************
* カテゴリー:[日付・時刻][][]                                                    *
* キーワード:和暦,カレンダー,元号,,,                                             *
***********************************************************************************

元質問:和暦の入力チェック - Wa  2007/03/20-00:13 No.8698

昭和を指定した場合、年に対し1〜64以外は入力不可など年号に対し入力制限を行いたく考えています。
昭和の場合は、1〜64以外はNGなどそれぞれの年号に対しチェックを行うほかに何か良い方法はないでしょうか?

-----------------------------------------------------------------------------------
Re^4: 和暦の入力チェック - Blue  2007/03/20-11:02 No.8704
-----------------------------------------------------------------------------------
下記の一連のスレッドもご覧下さい。
 http://hanatyan.sakura.ne.jp/logbbs1/wforum.cgi?mode=allread&no=8698&page=0


Private Sub Command1_Click()
    Debug.Print IsValidateNengo("明治1年9月8日")   ' ┬
    Debug.Print IsValidateNengo("明治1年10月22日") ' │旧暦のためずれているらしい
    Debug.Print IsValidateNengo("明治1年10月23日") ' ┴
    Debug.Print IsValidateNengo("明治45年7月29日")
    Debug.Print IsValidateNengo("明治45年7月30日")

    Debug.Print IsValidateNengo("大正1年7月29日")
    Debug.Print IsValidateNengo("大正1年7月30日")
    Debug.Print IsValidateNengo("大正15年12月24日")
    Debug.Print IsValidateNengo("大正15年12月25日")

    Debug.Print IsValidateNengo("昭和1年12月24日")
    Debug.Print IsValidateNengo("昭和1年12月25日")
    Debug.Print IsValidateNengo("昭和64年1月7日")
    Debug.Print IsValidateNengo("昭和64年1月8日")
    
    Debug.Print IsValidateNengo("平成1年1月7日")
    Debug.Print IsValidateNengo("平成1年1月8日")
End Sub

Private Function IsValidateNengo(ByVal strDate As String) As Boolean
    If IsDate(strDate) Then
        IsValidateNengo = Format$(CDate(strDate), "ggge年m月d日") = strDate
    End If
End Function

てな感じで。
また
http://www.kumamotokokufu-h.ed.jp/kumamoto/bungaku/wa_seireki.html
を参考にしています。
そこに"大正・昭和の「改元の詔書」"について書かれていますが、
>IsValidateNengo("明治45年7月30日")
>IsValidateNengo("大正15年12月25日")
はTrueを返すようにしないとだめかも。

それと、明治の最初はよくわかりません。
メンテ

Page: 1 |

 投稿フォーム               スレッド一覧へ
題  名 スレッドをトップへソート
名  前
パスワード (記事メンテ時に使用)
投稿キー (投稿時 投稿キー を入力してください)
コメント

   クッキー保存   
スレッド一覧へ