固定長データに多いYYYYMMDDやHHMMSSフォーマットを時刻型に変換したい場合。@を使うことで効率的に変換可能
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
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 |
|
1 |
|
1 |
コメント