当月1日、翌月1日、翌々月1日を簡単に求める【DateSerial関数】【ExcelVBA】

当月1日、翌月1日、翌々月1日を簡単に求めたい

カレンダーやスケジュール生成の際、当月、翌月、翌々月の1日をコードで生成したい場合があります。
DateSerial関数を使用する事で簡単に求める事が出来ます。
※月末の判断と違って、シンプルです。

’■DateSerial関数で当月1日、翌月1日、翌々月1日を求める
Public Sub sample()

    '■処理タイミングの当月1日、翌月1日、翌々月1日を取得
    MsgBox DateSerial(Year(Now), Month(Now), 1)　  '2022/11/12実行→2022/11/01
    MsgBox DateSerial(Year(Now), Month(Now)+1, 1)　'2022/11/12実行→2022/12/01
    MsgBox DateSerial(Year(Now), Month(Now)+2, 1)　'2022/11/12実行→2023/01/01

End Sub

まとめ

DateSerial関数自体は別途こちらの記事を参照ください。こちらのページではお伝えしません。

付録

月末日の一覧表をまとめてます。
小学生の頃に「西向く士（にしむくさむらい）」で覚えましたよね。

関連記事

• 日付・時間に関する機能のまとめ(逆引き目次)
• 加算・減算した日付・時刻を取得する【DateAdd関数】
• 月初1日~月末31日までのフォルダ生成処理をパーツ化する
• 当月末日(月の最終日)を簡単に求めたい【DateSerial関数】
• 翌月末日や翌20日を簡単に求めたい【DateSerial関数】
• 月の日数分シートを作成する(シート名はmmdd)