VBATips

yyyy.mm.dd←→yyyy/mm/ddに相互変換【Format関数】【ExcelVBA】

yyyy.mm.dd形式、yyyy/mm/dd形式に相互変換したい

エクセルで移行用のデータをもらった時、必要な書式になっていない場合があります。
特にyyyy.mm.dd形式だと日付とは認識されず、isDate関数で使用できません。

今回紹介するコードで「yyyy.mm.dd←→yyyy/mm/dd」に相互変換可能です。

yyyy.mm.dd←→yyyy/mm/ddに相互変換するサンプルコード

Replace関数Format関数を使用し、変換します。

'■yyyy.mm.dd←→yyyy/mm/dd相互変換
Public Sub sample_yyyymmdd_Conv()
    
    '■yyyy.mm.dd→yyyy/mm/dd
    Dim str As String: str = "2021.11.01"
    Debug.Print Replace(str, ".", "/")  '2021/11/01
    
    '■yyyy/mm/dd→yyy.ymm.dd形式への変換
    Dim sDate As Date: sDate = "2021/11/01"
    Debug.Print Format(sDate, "yyyy.mm.dd")      '2021.11.01
End Sub

注意点

  • 特にありません。

関連記事

コメント

タイトルとURLをコピーしました