#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" の部分が "月" 単位の加減算を行うことを示しています。これ以外にもよく使うものとして、次のような加減算の単位を指定することができます。
※この方法は、クエリー式や、フォーム/レポートのテキストボックスなどのコントロールソースとしても使うことができます。その場合には式の前に "=" を付け、さらに Date() のように後ろにカッコを付ける必要があります。 |
|||||||||||||||
|
Copyright © T'sWare All rights reserved |