VBA DateDiff 関数

はじめに

Excel VBA マクロの DateDiff 関数を紹介します。

DateDiff 関数は、二つの日時の間隔を返します。

指定の日時から経過した日や時間を取得したいときに使用します。

構文

DateDiff(単位, 日時1, 日時2)

名前	説明
引数「単位」	単位を表す文字を指定します。
引数「日時1」	この日時から。
引数「日時2」	ここまでの日時。
戻り値	数値型 (Integer)

引数「単位」

単位	説明
yyyy	年
m	月
d	日
h	時
n	分
s	秒

解説

日時1 から日時2 までの経過時間 (単位) を返します。

単位が d (日)のとき、日時1 が今日で、日時2 が明日なら 1 を返します。

単位が d (日)のとき、日時1 が明日で、日時2 が今日なら -1 を返します。

日時1、日時2 に日付型に変換できない値を渡したときはエラーが発生します。

関数を使わなくても日時 - 日時で差を求められます。

使用例

Dim d1 As Date
Dim d2 As Date
d1 = "2013/1/1"
d2 = "2013/1/8"

Debug.Print (DateDiff("d", d1, d2)) ' 7
Debug.Print (DateDiff("d", d2, d1)) ' -7

d1 = "1:2:3"
d2 = "2:2:3"
Debug.Print (DateDiff("h", d1, d2)) ' 1
Debug.Print (DateDiff("n", d1, d2)) ' 60
Debug.Print (DateDiff("s", d1, d2)) ' 3600

日時の間隔を取得する。

Dim d1 As Date
Dim d2 As Date
d1 = "2013/1/1"
d2 = "2013/1/8"

Dim 間隔 As Date
Dim d As Date

間隔 = d2 - d1 ' 7 日
d = CDate("2013/1/8") + 間隔
Debug.Print (d) ' 2013/01/15

d1 = "1:02:03"
d2 = "2:02:03"
間隔 = d2 - d1 ' 1 時間
d = CDate("1:00:00") + 間隔
Debug.Print (d) ' 2:00:00