#048 今月の最終日の日にちを得るには? VBA

今月の最終日の日にちを得るには、DateAdd関数 を組み合わせて使用します。

最終日の日にちは直接的には求められません。1ヶ月の日数は28日〜31日まで月によって異なるためです。そのため、まず翌月1日を求めて、その1日前の日にちを取得することによって、それを今月の最終日とします。

次の例では、まず DateAdd("m", 1, DateSerial(Year(Date), Month(Date), 1)) の部分で翌月1日の日にちを得ます(#47参照)。続いて、DateAdd("d", -1, *****)) の部分でその日付の1日前、つまり今月の最終日の日にちを求めています。
DateAdd("d"-1, _
            DateAdd("m"1, DateSerial(Year(Date), Month(Date), 1)))


※この方法は、クエリー式や、フォーム/レポートのテキストボックスなどのコントロールソースとしても使うことができます。その場合には式の前に "=" を付け、さらに Date() のように後ろにカッコを付ける必要があります。
| Index | Prev | Next |

この情報は参考になりましたか?、問題は解決しましたか?、もしまだなら......
T'sWareのワンポイトテクニカルアドバイスをご利用ください。3000円/件〜でご支援します。
スタンドアロンからSQL Server対応まで、オーダーメイドのシステムを短納期・安価でお届けします
 

Copyright © T'sWare All rights reserved