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 …

: セルのデータを固定長形式で複数のセルに分割する（TextToColumns メソッド・Parse メソッド）

固定長形式でセルを分割 TextToColumns メソッドや Parse メソ …

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

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

: 日付時刻：日付から曜日を取得（ Weekday 関数、WeekdayName 関数）

Weekday 関数（日付から曜日を表す数値を返す）の使い方【書式】 week …

: 日付時刻：現在の日付・時刻を取得・設定（Now、Date、Time）

現在の日付・時刻を取得・設定現在の日付・時刻を取得（Now 関数、Date 関 …

: 日付時刻：文字列から日付・時刻データを取得（ DateValue 関数、TimeValue 関数）

DateValue 関数（文字列から日付データを取得）【書式】 date_va …

: 文字列：文字列変数の値を右詰めまたは左詰めにする（RSet ステートメント・LSet ステートメント）

RSet ステートメント・LSet ステートメント【書式】＜ RSet ステ …

: RGB 値一覧表（XlRgbColor 列挙型）

RGB 値（XlRgbColor 列挙型）一覧表 RGB 関数を使用して、出力さ …

: 乱数ジェネレータを初期化 (乱数系列を再設定) する（Randomize ステートメント）

Randomize ステートメントの使い方 Rnd 関数を使用する前に使用しま …

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

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

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