yyyy/mm/dd 형식의 문자열은 CDate함수를 사용해서 곧바로 Date형으로 변환 가능
Sub StringToDate1()
Dim s As String
Dim dt As Date
s = "2018/03/29"
dt = CDate(s)
End Sub
yyyymmdd형식은 yyyy/mm/dd형식으로 바꾼 다음에 변환한다
Sub StringToDate1()
Dim s As String
Dim dt As Date
s = "20180329"
dt = CDate(Format(s, "####/##/##"))
'// こちらでもよい
dt = CDate(Mid(s, 1, 4) & "/" & Mid(s, 5, 2) & "/" & Mid(s, 7, 2))
End Sub
'프로그래밍 언어 > Excel VBA' 카테고리의 다른 글
[VBA] 현재일자 취득, 연/월/일 취득 (0) | 2020.12.26 |
---|