【VBA】日付から月を抽出する方法
今回はVBAで日付から月を抽出する方法を紹介します。
日付から月を抽出する方法
Sub Sample1()
Dim dt As Date
dt = Date '今日の日付
Debug.Print Month(dt) '月
Debug.Print Day(dt) '日
End Sub日付から月を抽出するにはMonth関数を使います。日を抽出するにはDay関数を使います。
どちらも日付型を引数として渡して、月と日を返してくれる関数です。
サンプルコードでは今日の日付の月日を取得しています。
文字列の日付から月を抽出する方法
Sub Sample2()
Dim str As String
Dim dt As Date
str = "2023/03/27"
dt = CDate(str) '日付型に変換
Debug.Print Month(dt) '月
Debug.Print Day(dt) '日
End Sub日付型でなく文字列の日付のときは一度日付型に変換する必要があります。
サンプルコードのようにCDate関数で日付型に変換して、それから月を抽出しましょう。
VBAが難しいと感じたら
プロにお任せして代わりに作ってもらってはいかがでしょう？
VBAの作成依頼はこちらから
VBAの作成依頼はこちらから
《VBA中級者向けの本》
VBA上級者を目指したい人にはパーフェクトExcel VBA一択です。
