DateAdd 関数

  • [アーティクル]

指定した時間間隔を日付に加算してその日付を含む Variant (Date) を返します。

構文

DateAdd(interval, number, date)

DateAdd 関数の構文に構文に使用される名前付き引数は次のとおりです。

指定項目 説明
interval 必須。 加算する時間間隔を表す文字列式。
number 必須。 追加するサイクル間隔の数値を表す数値式です。 将来の日時を取得するには正の値を、過去の日時を取得するには負の値を指定します。
date 必須。 時間間隔を加算する日付を表す Variant (Date)、またはリテラル。

設定

interval引数には、次の設定があります。

Setting 説明
yyyy 年
q 四半期
m 月
y 通年での日数
d 日
w 平日
ww 週
h 時
n 分
s 秒

解説

DateAdd 関数を使用すると、指定した時間間隔を日付に加算したり、日付から減算したりできます。 たとえば、DateAdd を使用して、今日から 30 日後の日付、または今から 45 分後の時刻を計算することができます。

date に日数を加算する場合、年間通算日 ("y")、日 ("d")、または平日 ("w") を使用できます。

注:

ある日付に日数を足す目的で、(日曜日から土曜日まですべての曜日を含む) "w" サイクル間隔を使用するとき、DateAdd 関数は、その日までの、指定した合計日数を追加します。その日までの、(月曜日から金曜日までの) 仕事日の数のみを追加するのではないことに注意してください。

DateAdd 関数が無効な日付を返すことはありません。 次の例では、1 月 31 日に 1 か月を追加します。

DateAdd("m", 1, "31-Jan-95")

この場合、DateAdd は、1995 年 2 月 31 日ではなく、1995 年 2 月 28 日を返します。 date が 1996 年 1 月 31 日の場合は、1996 年は閏年であるため、1996 年 2 月 29 日を返します。

計算された日付が西暦 100 年よりも前になる場合 (つまり、date の年より多くの年を引いた場合)、エラーが発生します。

number が Long 値ではない場合、最も近い整数に丸めてから評価されます。

注:

DateAdd の戻り値の形式は、date 引数で渡された形式ではなく、コントロール パネルでの設定によって決まります。

注:

Calendar プロパティの設定がグレゴリオ暦の場合、date にはグレゴリオ暦の日付を指定する必要があります。 カレンダーがイスラム暦である場合、指定する日付もイスラム暦である必要があります。 月の値が名前である場合、名前は現在の Calendar プロパティの設定と一致している必要があります。 月名が現在の Calendar プロパティ設定と競合する可能性を最小にするには、数字で示す月の値 (短い日付形式) を入力します。

例

次の例では、日付を受け取り、DateAdd 関数を使用して、指定された月数を加算した将来の日付を表示します。

Dim FirstDate As Date    ' Declare variables.
Dim IntervalType As String
Dim Number As Integer
Dim Msg As String
IntervalType = "m"    ' "m" specifies months as interval.
FirstDate = InputBox("Enter a date")
Number = InputBox("Enter number of months to add")
Msg = "New date: " & DateAdd(IntervalType, Number, FirstDate)
MsgBox Msg

関連項目

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。