投稿日	： 2007/03/20(Tue) 09:13
投稿者	： Blue
Ｅメール	：
ＵＲＬ	：
タイトル	： Re: 和暦の入力チェック

文字列を組み立ててからチェックするとか。

たとえば 昭和64年1月7日 ってな文字列を組み立ててから
IsDate関数をかますとTrueが帰ってきます。

ただし、例に挙げたとおり、和暦チェックには月日まで必要です。
とりあえず年号だけチェックしたいなら1月1日でチェックすればよさそう。


Sub test()
    Debug.Print "明治45年 "; IsValidateNengo("明治", 45)
    Debug.Print "明治46年 "; IsValidateNengo("明治", 46)
    Debug.Print "大正15年 "; IsValidateNengo("大正", 15)
    Debug.Print "大正16年 "; IsValidateNengo("大正", 16)
    Debug.Print "昭和64年 "; IsValidateNengo("昭和", 64)
    Debug.Print "昭和65年 "; IsValidateNengo("昭和", 65)
End Sub

Private Function IsValidateNengo(ByVal nengo As String, ByVal nen As Integer) As Boolean
    IsValidateNengo = IsDate(nengo & CStr(nen) & "年1月1日")
End Function

★ - 和暦の入力チェック - Wa 03/20-00:13No.8698
• Re: 和暦の入力チェック - Blue 03/20-09:13 No.8700
  • Re^2: 和暦の入力チェック - 花ちゃん 03/20-09:49 No.8701
    • Re^3: 和暦の入力チェック - Blue 03/20-10:23 No.8703
      • Re^4: 和暦の入力チェック - Blue 03/20-11:02 No.8704
        • Re^5: 和暦の入力チェック - 魔界の仮面弁士 03/20-13:32 No.8706