【VBA】指定した日付の月末を取得する

指定した日付の
 ・月末を取得
する方法を記載します!

PR

VBAコード

ここでは例として、
 ・本日日付(=2021/05/01)の
 ・月末を取得
します。

本日日付は「2021年5月1日」
本日日付は「2021年5月1日」
Option Explicit

Sub sample()

    Dim today As String
    Dim endOfMonth As String
    
    '本日日付を取得
    today = Date
    
    '月末を取得
    endOfMonth = DateSerial(Year(today), Month(today) + 1, 0)
    
    MsgBox endOfMonth
    
End Sub

以下の関数を組み合わせることで、月末を取得できます。
・DateSerial関数
・Year関数
・Month関数


上記の
 ・「DateSerial(Year(today), Month(today) + 1, 0)」は
 ・「DateSerial(‘2021’, ‘5’ + 1, 0)」となり、
 ・「DateSerial(‘2021’, ‘6’, 0)」
となります。

さらに
 ・「DateSerial(‘2021’, ‘6’, 0)」は、
 ・「2021年6月前月の最終日
という意味になります。

つまり
 ・「2021年5月の月末
となります。

PR

実行結果

指定した日付(=2021/05/01)の月末を取得できました。

実行結果
実行結果
PR

参考

上記のVBAコードで使用した以下の詳細については、公式サイトをご確認ください。

●DateSerial関数


●Year関数


●Month関数

タイトルとURLをコピーしました