yyyy.mm.dd形式、yyyy/mm/dd形式に相互変換したい
エクセルで移行用のデータをもらった時、必要な書式になっていない場合があります。
特にyyyy.mm.dd形式だと日付とは認識されず、isDate関数で使用できません。
今回紹介するコードで「yyyy.mm.dd←→yyyy/mm/dd」に相互変換可能です。
yyyy.mm.dd←→yyyy/mm/ddに相互変換するサンプルコード
'■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
注意点
- 特にありません。
コメント