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

関連記事

: 文字列：文字列を指定した形式に変換する（StrConv 関数）

StrConv 関数の使い方【書式】 result = StrConv ( s …

: ショートカットメニュー（CommandBar オブジェクト）

ショートカットメニュー（コンテキストメニュー）右クリックで表示されるメニューの …

: 上付き文字・下付き文字（Superscript,Subscript）

上付き文字（Superscript プロパティ） Superscript プロパ …

: Split 関数（文字列型の一次配列を作成）

Split 関数の使い方【書式】 myArray = Split ( expr …

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

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

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

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

: 列挙型変数（Enum ステートメント）

列挙型変数を使う列挙型変数を使用するには、Enum ステートメントを使って、宣 …

: 変数がNull 値かどうかをチェックする（ IsNull 関数）

IsNull 関数の使い方【書式】 result = IsNull ( exp …

: Math 関数（ Abs,Atn,Cos,Exp,Log,Rnd,Sgn,Sin,Sqr,Tan ）

Abs 関数【書式】 value = Abs ( number ) 【引数・戻 …

: 変数がオブジェクト型かどうかをチェックする（ IsObject 関数）

IsObject 関数の使い方【書式】 result = IsObject ( …

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