【VBA】文字列から日付型への変換ロジック　YYYYMMDDやHHMMSSフォーマット

固定長データに多いYYYYMMDDやHHMMSSフォーマットを時刻型に変換したい場合。@を使うことで効率的に変換可能

Sub 文字列から日付型への変換ロジックYYYYMMDD_HHMMSSフォーマット()
    Dim 日付 As String
    Dim 時刻 As String
    
    日付 = "20210623" 'YYYYMMDD
    時刻 = "182754" 'HHMMSS

    Debug.Print 日付変換(日付)

    Debug.Print 時刻変換(時刻)


End Sub



Function 日付変換(ByVal str As String) As Date
    日付変換 = CDate(Format(str, "@@@@/@@/@@"))
End Function

Function 時刻変換(ByVal str As String) As Date
    時刻変換 = CDate(Format(str, "@@:@@:@@"))
End Function