#047 先月や来月の1日の日にちを得るには? VBA

先月や来月の1日の日にちを得るには、DateSerial関数 ならびに DateAdd関数 を使用します。

DateAdd関数は、指定された日付や時刻に対して、ある間隔を加減算した日付や時刻を返します。先月や来月の1日の日にちを得るには、まず現在の日付から今月1日の日にちを DateSerial(Year(Date), Month(Date), 1) によって求めます(#46参照)。そしてそれに対して、先月の場合には"マイナス1ヶ月"を、来月の場合には"プラス1ヶ月"を DateAdd関数 の引数に指定します。

先月の場合
DateAdd("m"-1, DateSerial(Year(Date), Month(Date), 1))
来月の場合
DateAdd("m"1, DateSerial(Year(Date), Month(Date), 1))

上記の式では、"m" の部分が "月" 単位の加減算を行うことを示しています。これ以外にもよく使うものとして、次のような加減算の単位を指定することができます。
yyyy
d
ww
h
n
s

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

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

Copyright © T'sWare All rights reserved