Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

日付時刻：日付時刻データを計算（ DateAdd 関数）

2015/04/20 2015/08/26

DateAdd 関数（日付・時刻の値を加算・減算結果を取得）

【書式】

result_date = DateAdd ( interval, number, date )

【引数・戻り値】

interval ・・・加減する時間間隔の単位を文字列式で指定します。（下表「時間間隔の単位を示す単位」を参照）
number ・・・加減する時間間隔の数値・数式を指定します（将来の日時を取得する場合は正数、過去の日時を取得するには負数を指定します）。
date ・・・元となる日付・時刻を指定します（内部処理形式 Date のバリアント型の値、もしくはリテラル文字列）。
result_date ・・・引数 date に、number を加算（減算）した日付（バリアント型の値）。

時間間隔の単位を示す単位（interval に指定する値）の一覧

値	内容	備考
yyyy	年
q	四半期
m	月
y	年間通算日	※ d を設定した時と同じ結果になる
d	日
w	週日	※ d を設定した時と同じ結果になる
ww	週
h	時
n	分	※ 注意「m」ではなく「n」
s	秒

DateAdd 関数の使用例

サンプルVBAソース

　
Sub Sample_DateAdd()

    Dim myDate As Date
    Dim msg
    
    myDate = #1/1/2015#
    
    msg = "元日付　　　 ：" & myDate & Chr(13) & _
          "d（日）　3200：" & DateAdd("d", 3200, myDate) & Chr(13) & _
          "y（年日）3200：" & DateAdd("y", 3200, myDate) & Chr(13) & _
          "w（週日）3200：" & DateAdd("w", 3200, myDate) & Chr(13) & _
          "d（日）　 -32：" & DateAdd("d", -32, myDate) & Chr(13) & _
          "y（年日） -32：" & DateAdd("y", -32, myDate) & Chr(13) & _
          "w（週日） -32：" & DateAdd("w", -32, myDate) & Chr(13) & _
          "yyyy（年）　1：" & DateAdd("yyyy", 1, myDate) & Chr(13) & _
          "q（四半期） 1：" & DateAdd("q", 1, myDate) & Chr(13) & _
          "n（分）40　　：" & DateAdd("n", 40, myDate) & Chr(13) & _
          "ww（週）1　　：" & DateAdd("ww", 1, myDate)
    
    Debug.Print msg
    
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

　

Sub Sample_DateAdd()

Dim myDate As Date

Dim msg

myDate = #1/1/2015#

msg = "元日付　　　：" & myDate & Chr(13) & _

"d（日）　3200：" & DateAdd("d", 3200, myDate) & Chr(13) & _

"y（年日）3200：" & DateAdd("y", 3200, myDate) & Chr(13) & _

"w（週日）3200：" & DateAdd("w", 3200, myDate) & Chr(13) & _

"d（日）　 -32：" & DateAdd("d", -32, myDate) & Chr(13) & _

"y（年日） -32：" & DateAdd("y", -32, myDate) & Chr(13) & _

"w（週日） -32：" & DateAdd("w", -32, myDate) & Chr(13) & _

"yyyy（年）　1：" & DateAdd("yyyy", 1, myDate) & Chr(13) & _

"q（四半期） 1：" & DateAdd("q", 1, myDate) & Chr(13) & _

"n（分）40　　：" & DateAdd("n", 40, myDate) & Chr(13) & _

"ww（週）1　　：" & DateAdd("ww", 1, myDate)

Debug.Print msg

End Sub

　

実行結果

- VBA基本 dateadd 関数, VBA基本, エクセルVBA, 日付時刻, 日付時刻計算

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 文字列：文字列変数内の一部を置き換える（Mid・MidB ステートメント）

Mid・MidB ステートメントの使い方【書式】 { Mid | MidB } …

: データ型を調べて、そのデータ型を示す数値を返す（VarType 関数）

VarType 関数の使い方 VarType 関数は、引数に、データ型を調べた …

: 文字列：文字を指定数並べた文字列を返す（String 関数）

String 関数【書式】 result = String ( number, …

: 色の設定（ThemeColor プロパティ・TintAndShade プロパティ）

ThemeColor プロパティ・TintAndShade プロパティテーマカ …

: ユーザー設定リストを使って並べ替える（Sort）

VBAでリスト、テーブルを並べ替える（Sort） VBAで、ソートを行うには、S …

: ある数値が、複数の範囲のどの範囲に含まれるかを示す文字列を返す（Partition 関数）

Partition 関数の使い方 Partition 関数は、ある数値が、区切 …

: 色を設定する（QBColor 関数）

QBColor 関数 QBColor 関数は、指定した色番号に対応するRGB コ …

: 文字列：定数（改行・タブ）

改行・タブの定数これらの定数は、使用前に定義する必要はありません。コード中のど …

: VBA の演算子（文字連結演算子：& 演算子 + 演算子）

文字連結演算子文字連結演算子は、文字列の連結を行うときに使用する演算子で、「& …

: 文字列：文字列の空白を削除（Trim 関数, LTrim関数, RTrim関数）

Trim 関数・LTrim 関数・RTrim 関数の使い方【書式】＜先頭と末 …

PREV: 日付時刻：数値から日付・時刻データを取得（ DateSerial 関数、TimeSerial 関数）
NEXT: 日付時刻：日付時刻から情報取得（ DatePart 関数）