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

関連記事

: 指定した数値を文字列に変換する（Str 関数）

Str 関数の使い方 Str 関数は、数値・数式を文字列に変換して返す関数です …

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

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

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

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

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

DateSerial 関数（数値を使って日付データを取得）【書式】 date …

: VBAの変数宣言

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

: テキストファイル（UTF-8）を読み込み、書き出し（ADODB.Stream）

Stream オブジェクト ADO（ActiveX Database Objec …

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

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

: フォントの設定（Font プロパティ）

フォントの設定（Font プロパティ）指定されたオブジェクトのフォント情報（F …

: VBA で正規表現を使う（RegExp オブジェクト）

RegExp オブジェクト VBA で正規表現を使うには、VBScript のR …

: Join 関数（配列の要素を結合）

Join 関数 1次元配列の各要素を指定した区切り文字で連結します。【書式】 …

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