Microsoft Access Club >Access一日一見 >このページ >次頁 <前項  サイト内検索


DateAdd 関数…



DateAdd 関数は、 指定された時間間隔を加算した日付をバリアント型 (内部処理形式 String の Variant) の値で返します。

基本構文

DateAdd(interval, number, date)

DateAdd 関数の構文は、次の名前付き引数から構成されます。

指定項目 内容
interval 必ず指定します。追加する時間間隔を表す文字列式を指定します。
number 必ず指定します。追加する時間間隔の数を表す数式を指定します。将来の日時を取得するには正の数を指定します。過去の日時を取得するには負の数を指定します。
date 必ず指定します。時間間隔を追加する日付を表すバリアント型 (内部処理形式 Date の Variant) の値またはリテラル文字列を指定します。
設定値

名前付き引数 interval の設定値は次のとおりです。

設定値 内容
yyyy yyyy
q 四半期
m
y 年間通算日
d
w 週日
ww
h
n
s

解説

DateAdd 関数を使うと、ある日付に対して指定した時間間隔を、加えたり引いたりすることができます。たとえば、現在から 30 日後の日付や、現在から 45 分後の時刻などを計算できます。

  1. 名前付き引数 date に日数を加えるには、年間通算日 ("y")、日 ("d")、週日 ("w") のいずれかを指定します。
  2. DateAdd 関数が無効な日付を返すことはありません。次の例では、31-Jan-95 の日付に 1 か月を加えています。

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

  1. この場合、31-Feb-95 ではなく、28-Feb-95 が返されます。名前付き引数 date が 31-Jan-96 であれば、1996 年は閏年なので 29-Feb-96 が返されます。
  2. 計算の結果、日付が西暦 100 年以前になる場合 (名前付き引数 date に指定した年よりも大きな年を引いた場合) は、エラーが発生します。
  3. 名前付き引数 number に指定した値が長整数型 (Long) でない場合は、最も近い整数値に丸められてから評価されます。

留意点

DateAdd の戻り値の書式は、引数 date に指定する日付の書式ではなく、[コントロール パネル] の設定によって決まります。

Function SampleDateAdd()

    On Error GoTo err_SampleDatePart

    Dim FirstDate As String  ' 変数を宣言します。
    Dim IntervalType As String
    Dim Number As Integer
    Dim strMsg As String

  ' "m" (定数、月数)によって追加する時間間隔として、月を指定します。
    IntervalType = "m" 

    FirstDate = InputBox("yyyy/m/d 形式で日付を入力してください。")
    If IsDate(FirstDate) = False Then MsgBox "日付形式と認識できません。": End

    Number = InputBox("加算する月数を入力してください。")
    strMsg = "新しい日付 : " & DateAdd(IntervalType, Number, FirstDate)
    MsgBox strMsg

Exit Function

err_SampleDatePart:

    MsgBox "予期せぬエラーが発生しました。" & vbNewLine & _
            "エラー番号: " & Err.Number & vbNewLine & _
            "エラー内容:" & Err.Description
    Exit Function

End Function
プロシージャの実行

このプロシージャを実行すると、下記のメッセージが表示されます。

次に、加算する月数を入力して、

10ヵ月後の月日が表示されます。

※Accessヘルプから引用しています。

2003/01/24 

ページの先頭へ 前ページへ戻る


DateAdd 関数…


 

-Microsoft Access Club-

アメリカ合衆国の大手データセンターのアダルト対応可能なリーズナブル価格設定の専用・共有レンタルサーバーをご提供しています。
アメリカ合衆国の大手データセンターにサーバー機器を設置。
アダルト対応可能な専用・共有レンタルサーバーを提供。