#048
今月の最終日の日にちを得るには、DateAdd関数 を組み合わせて使用します。
最終日の日にちは直接的には求められません。1ヶ月の日数は28日〜31日まで月によって異なるためです。そのため、まず翌月１日を求めて、その１日前の日にちを取得することによって、それを今月の最終日とします。
次の例では、まず DateAdd("m", 1, DateSerial(Year(Date), Month(Date), 1)) の部分で翌月１日の日にちを得ます(#47参照)。続いて、DateAdd("d", -1, *****)) の部分でその日付の１日前、つまり今月の最終日の日にちを求めています。
DateAdd("d", -1, _
DateAdd("m", 1, DateSerial(Year(Date), Month(Date), 1)))
DateAdd("m", 1, DateSerial(Year(Date), Month(Date), 1)))
※この方法は、クエリー式や、フォーム/レポートのテキストボックスなどのコントロールソースとしても使うことができます。その場合には式の前に "=" を付け、さらに Date() のように後ろにカッコを付ける必要があります。
