AccessVBA徹底入門 Chapter1-7 VBAの組み込み関数（日付/時刻関数）

Chapter1-7

VBAの組み込み関数（日付/時刻関数）

ここでは、VBAで使われる代表的な「日付/時刻」の演算に関する組み込み関数を紹介します。イミディエイトウィンドウを使っていろいろ動作確認してみましょう。

Now関数、Date関数、Time関数
それぞれ、”現在日時”、”現在日付”、”現在時刻”を取得します。 ?Now 2009/05/05 6:54:19 ?Date 2009/05/05 ?Time 6:54:22 これらの関数では、関数名の次のカッコを省略できます。

Year関数、Month関数、Day関数
それぞれ、日時から”年だけ”、”月だけ”、”日だけ”を取り出します。 ?Year(#2009/05/05 12:34:56#) 2009 ?Month(#2009/05/05 12:34:56#) 5 ?Day(#2009/05/05 12:34:56#) 5 同様にして、時刻から”時だけ”、”分だけ”、”秒だけ”を取り出し関数として、Hour関数、Minute関数、Second関数があります。

DateAdd関数

日時に加減算を行ないます。

?DateAdd("yyyy", -1, #2009/05/05#)

2008/05/05
?DateAdd("yyyy", 1, #2009/05/05#)

2010/05/05
?DateAdd("d", 100, #2009/05/05#)

2009/08/13
?DateAdd("m", 2, #2009/05/05#)

2009/07/05

上記の例では、それぞれ、1年前、1年後、100日後、2ヶ月後の日付を求めています。
この関数では、３番目の引数に日付や時刻を、２番目の引数に増減する量を指定します。そして、１番目の引数には、加減算する日時の基準単位を上記のような文字列として指定します。
この関数では、月末の日付も考慮されます。たとえば5月31日の1日後は翌月6月1日が返されます。

DateDiff関数

２つの日時の間隔を求めます。

?DateDiff("yyyy", #2007/05/05#, #2009/05/05#)

2
?DateDiff("yyyy", #2009/05/05#, #2007/05/05#)

-2
?DateDiff("m", #2009/02/05#, #2009/05/05#)

3
?DateDiff("d", #2009/01/01#, #2009/05/05#)

124

DateSerial関数

年・月・日の３要素から日付を組み立てます。

?DateSerial(2009, 5, 1)

2009/05/01
?DateSerial(2009+1, 5+1, 1+1)

2010/06/02
?DateSerial(Year(Date), Month(Date), Day(Date)+4)

2009/05/09
?DateSerial(Year(Date), Month(Date), 1)

2009/05/01
?DateAdd("d", -1, DateAdd("m", 1, DateSerial(Year(Date), Month(Date), 1)))

2009/05/31
?DateSerial(Year(Date), Month(Date)+1, 1)

2009/06/01
?DateAdd("m", 1, DateSerial(Year(Date), Month(Date), 1))

2009/06/01

この関数では、引数に年・月・日を別々に指定することで、それらを組み合わせた日付を求めることができます。各引数には計算値を指定できることが特徴です。
１番目の例では、単純に２００９年５月５日の日付を組み立てています。
２番目の例では、２００９年５月５日に対して、１年＋１ヶ月＋１日後の日付を組み立てています。
３番目の例では、現在日付の４日後の日付を組み立てています。
４番目の例では、今月の１日の日付を組み立てています。
５番目の例では、今月の末日の日付を組み立てています。１ヶ月の日数は２８日～３１日と、月ごとに異なります。そこで、今月１日の日付をもとに翌月の１日の日付を求め、その１日前の日付を調べることによってそれを今月の最終日とします。翌月の最終日を今月の最終日の１ヶ月後と考えると間違った結果になりますので注意が必要です。例えば、９月３０日の１ヶ月後の１０月３０日は１０月の最終日ではありません。
６番目と７番目の例では、翌月の１日の日付を組み立てています。

Format関数

日時を書式化します。

?Format(#2009/05/05 12:34:56#, "yyyy/mm/dd")

2009/05/05
?Format(#2009/05/05 12:34:56#, "yyyy年m月d日(aaa)")

2009年5月5日(火)
?Format(#2009/05/05 12:34:56#, "ggg e年m月d日(aaaa)")

平成 21年5月5日(火曜日)
?Format(#2009/05/05 12:34:56#, "oooo d日")

5月 5日

この関数の２番目の引数に指定する書式には、主に次のようなものがあります。