サンプル投稿用掲示板 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を返すようにしないとだめかも。
それと、明治の最初はよくわかりません。
 |
