|
2008/12/29(Mon) 15:15:34 編集(投稿者)
2008/12/29(Mon) 15:15:23 編集(投稿者)
■No30640 (たくボン さん) に返信
> 号年が和暦のことならば、年と月に分割し、1日を加えた日付型でisdateしてみるといいかも。
> (例H2012なら)
> H20/12/01みたいな日付として認識可能な形式に変換して検証。
上記のとおり実装してみました。
結果、isdate関数が認識可能とりなりました。
実装ソース（一部省略しております）
Dim checkG As String
Dim checkYY As String
Dim checkMM As String
Dim checkStrOutTeanxt As String
Dim reslut As Boolean
' 存在する号年月かどうかをチェックする
strOutText = "H2012" '試験データ（H2012=平成２０年１２月の意味です。）
'年号は、H=平成 S=昭和のみを対象とします。
checkG = Mid(strOutText, 1, 1)
checkYY = Mid(strOutText, 2, 3)
checkMM = Mid(strOutText, 4, 5)
checkStrOutTeanxt = checkG & checkYY & "/" & checkMM & "/" & "01"
reslut = IsDate(checkStrOutTeanxt)
If IsDate(checkStrOutTeanxt) Then
Hiduke_Edit = strOutText 'trueの場合、戻り値を返す
Else
flag = 1 'falseの場合、戻り値を返さない。判定フラグを設定します。
End If
始めて投稿させていただきました。
質問の仕方が悪いため、皆様に疑問を抱かせ、大変申し訳ございませんでした。
皆様の温かいご教授をいただき、誠に感謝しております。
また、迅速な回答、ありがとうございました。
今後とも、何卒よろしくお願いします。
|
