このサイトの記事内では「アフィリエイト広告」などの広告を掲載している場合があります。
消費者庁が問題としている「誇大な宣伝や表現」とならないよう配慮しコンテンツを制作しておりますのでご安心ください。
問題のある表現が見つかりましたらお問い合わせよりご一報いただけますと幸いです。

【VBA】日付から月を抽出する方法

2024年4月12日

【VBA】日付から月日だけ取り出す方法

今回はVBAで日付から月を抽出する方法を紹介します。

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

Posted by やろまい