文字型の日付をスラッシュ入りの yyyy/MM/dd 形式 の日付型に変換する

■テーブル定義では文字型のカラムでyymmだけど、抽出条件で一か月後とかなってた時に
一旦数値型に変換するときに使った

Sub testDayChange()

Dim strDay As String
Dim dteDay As Date

'もし取得した値がyyyymmの場合は.....
strDay = "201905"

'"0"を足してyymmddの状態にしておく。ここでは 20190501 となる
strDay = strDay & "01"

dteDay = CDate(Format(strDay, "@@@@/@@/@@"))

MsgBox Format(dteDay, "yyyyMM")

End Sub