読者です 読者をやめる 読者になる 読者になる

masalibの日記

システム開発、運用と猫の写真ブログです

エクセルVBAの日付チェックについて

エクセルの日付カラムなので
ほぼ日付の形になっているが
時間があるのかどうかを判定するのが面倒くさいので
正規表現をつかう事にした
日付の正規表現にこまったので
下記のサイトを参考にした
http://kenjikaeshima.blogspot.jp/2010/01/20.html
(\d{4})/(\d{2})/(\d{2}) (\d{2}):(\d{2}):(\d{2})
 

 Dim objRE, strPattern As String, i As Long, msg As String, reMatch '正規表現で使用
 Set objRE = CreateObject("VBScript.RegExp")
 strPattern = "(\d{4})/(\d{2})/(\d{2}) (\d{2}):(\d{2}):(\d{2})"	'正規表現を設定する
 objRE.Pattern = strPattern

msg = "2013/12/03"

If objRE.test(msg) = False Then
   '***時間指定なし
    myTmp = myTmp & """" & msg & " 00:00:00" & """" & vbTab
Else
   '***時間指定あり
    myTmp = myTmp & """" & msg & """" & vbTab
End If