スキルアップ・問題解決なら、モーグにおまかせ！

DateSerial関数を次のように利用すると、今月/前月/翌月の月末日を取得することができます。

Sub Sample()
  
  '今月の月末日
  MsgBox DateSerial(Year(Date), _
         Month(Date) + 1, 0)
  '前月の月末日
  MsgBox DateSerial(Year(Date), _
         Month(Date), 0)
  '翌月の月末日
  MsgBox DateSerial(Year(Date), _
         Month(Date) + 2, 0)
    
End Sub

●詳細●
DateSerial関数の構文と引数は以下のようになっています。

＜構文＞
DateSerial(year, month, day)

指定項目  内容 
year      必ず指定します。
          整数型(Integer)のデータ形式で指定します。
          年を表す100〜9999の範囲の数値または数式を
          指定します。
 
month     必ず指定します。
          整数型(Integer)のデータ形式で指定します。
          月を表す1〜12の範囲の数値または任意の数式
          を指定します。
 
day       必ず指定します。
          整数型(Integer)のデータ形式で指定します。
          日を表す1〜31の範囲の数値または任意の数式
          を指定します。