即効テクニック |
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の範囲の数値または任意の数式 を指定します。