【EXCEL VBA】月の最終日を取得したい

2019.06.172019.06.21

月の最終日を取得する方法です。色々と方法はありますが、DateSerial関数を利用するのが一番スマートなので紹介します。

目次

DateSerial関数を使って解決する
サンプルプログラムを確認する（コピペOK）

DateSerial関数を使って解決する

DataSerial関数の3番目の引数は日を指定します。よって１~31の数字を通常は指定します。しかし、0を指定すると「前月の末日と見なす」という特別な仕様がありますので、これを利用します。

サンプルプログラムを確認する（コピペOK）

Sub sample()
    Dim dt As Date
    
    dt = "2019/6/15"
    Debug.Print DateSerial(Year(dt), Month(dt) + 1, 0)      '2019/6/30
    
    dt = "2020/2/3"
    Debug.Print DateSerial(Year(dt), Month(dt) + 1, 0)      '2020/2/29

End Sub