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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 文字列：文字列右から指定文字数取得（Right 関数,RightB 関数）

Right 関数・RightB 関数の使い方【書式】 result_righ …

: 指定した数のスペースを挿入する（Spc 関数）

指定した数のスペースを挿入指定した数のスペースを挿入するには、Spc 関数を使 …

: CPU に制御を移す（DoEvents 関数）

DoEvents 関数 DoEvents 関数を実行すると、CPU に制御を移し …

: カレントフォルダ（CurDir 関数、ChDir ステートメント、ChDrive ステートメント）

カレントフォルダカレントフォルダとは、ブックを開いたり保存するときに既定で参照 …

: 文字列：文字列左から指定文字数取得（Left 関数,LeftB 関数）

Left 関数・LeftB 関数の使い方【書式】 result_left = …

: VBAの変数宣言

VBAの変数宣言について変数を暗黙的に宣言するエクセル VBA の場合、明示 …

: 文字列：文字列を検索してその最初の文字位置を返す（InStr 関数,InStrB 関数）

InStr 関数・InStrB 関数の使い方【書式】 result = { I …

: 変数のデータ型・宣言（Dim ステートメント）

変数の宣言一般的な方法【書式】 Dim varname [ As type, …

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

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

: Option Compare ステートメント

Option Compare ステートメントの使い方【書式】 Option C …

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