DateDiff関数
DateDiff関数は、2つの指定した日付の時間間隔を表す値を返します。
さらに、
年の計算は違ったものとなっていますので注意してください。
名前付き引数 date1 と date2 の間隔を計算するための、時間単位を表す文字列式を指定します。
| 設定値 | 内容 |
| yyyy | 年 |
| q | 四半期 |
| m | 月 |
| y | 年間通算日 |
| d | 日 |
| w | 週日 |
| ww | 週 |
| h | 時 |
| n | 分 |
| s | 秒 |
date1, date2
この名前付き引数はバリアント型 (内部処理形式 Date の Variant) のデータ形式で指定します。
間隔を計算する 2 つの日付を指定します。
date2よりも時間的に後の日付をdate1に指定すると、DateDiff 関数は負の数を返します。
firstdayofweek
週の始まりの曜日を表す定数を指定します。
省略すると、日曜日を指定したものとみなされます。
| 定数 | 値 | 内容 |
| vbUseSystem | 0 | NLS API の設定値を使います。 |
| vbSunday | 1 | (既定値) 日曜 |
| vbMonday | 2 | 月曜 |
| vbTuesday | 3 | 火曜 |
| vbWednesday | 4 | 水曜 |
| vbThursday | 5 | 木曜 |
| vbFriday | 6 | 金曜 |
| vbSaturday | 7 | 土曜 |
firstweekofyear
年度の第 1 週を表す定数を指定します。
省略すると、1 月 1 日を含む週が第 1 週とみなされます。
| 定数 | 値 | 内容 |
| vbUseSystem | 0 | NLS API の設定値を使います。 |
| vbFirstJan1 | 1 | (既定値) 1 月 1 日を含む週を年度の第 1 週として扱います。 |
| vbFirstFourDays | 2 | 7 日のうち少なくとも 4 日が新年度に含まれる週を年度の第 1 週として扱います。 |
| vbFirstFullWeek | 3 | 全体が新年度に含まれる最初の週を年度の第 1 週として扱います。 |
週の扱いについて
date1 が月曜日の場合は、date2 までの間の月曜日の数が返されます。
このときdate2 の月曜日は計算に入りますが、date1 の月曜日は計算に入りません。
つまり、date1 と date2 の間の日曜日の数が返されます。
date2に指定した日付が日曜日であれば、date2 は計算に入りますが、date1 は日曜日であっても計算に入りません。
間隔の日数を求め、7で割り曜日の調整を行う等での対応が望ましいでしょう。
yyyy（年）について
あくまで、年の間隔だけの値になります。
DateDiff("yyyy", #1/1/2018#, #2/1/2019#)
この結果は、どちらも1となります。
つまり、単純な年の引き算になっています。
これは、
Year関数で求めた年数を引き算した結果と同じです。
従って、VBAで自作するしかありません。
ここでは、以下が紹介されています。
Function Age(varBirthDate As Variant) As Integer
Dim varAge As Variant
If IsNull(varBirthDate) Then Age = 0: Exit Function
varAge = DateDiff("yyyy", varBirthDate, Now)
If Date < DateSerial(Year(Now), Month(varBirthDate), _
Day(varBirthDate)) Then
varAge = varAge - 1
End If
Age = CInt(varAge)
End Function
DateDiff関数が使われていて、かつ面倒な計算をしていますが、
（関数を紹介する意味でいろいろな関数を使っているのだと思いますが）
もっと単純かつ汎用的に、以下でどうでしょうか。
Function Age(FromDate As Variant, ToDate As Variant) As Integer
Dim intAge As Integer
intAge = Year(ToDate) - Year(FromDate)
If Format(ToDate, "mmdd") < Format(FromDate, "mmdd") Then
intAge = intAge - 1
End If
Age = intAge
End Function
使用例．
DateDiff("m", #4/1/1970#, #6/9/2013#) ・・・ 518
DateDiff("d", #4/1/1970#, #6/9/2013#) ・・・ #6/9/2013# - #4/1/1970# これと同じです。
同じテーマ「VBA関数」の記事
VarType関数
Date関数
DateAdd関数
DateDiff関数
DatePart関数
DateSerial関数
DateValue関数
Day関数
Hour関数
Minute関数
Month関数
新着記事NEW ・・・新着記事一覧を見る
Select Caseでの短絡評価（ショートサーキット）の使い方｜VBA技術解説（1月3日）
VBA100本ノック 迷宮編：巡回セル問題｜VBA練習問題（12月31日）
VBA100本ノック 58本目：番号リストを簡潔にした文字列で返す｜VBA練習問題（12月30日）
VBA100本ノック 57本目：ファイルの更新日時｜VBA練習問題（12月29日）
VBA100本ノック 56本目：数式内の自身のシート名を消す｜VBA練習問題（12月28日）
VBA100本ノック 55本目：他ブックのマクロを起動｜VBA練習問題（12月26日）
VBA100本ノック 54本目：シートのChangeイベント｜VBA練習問題（12月25日）
VBA100本ノック 53本目：テーブルの扱いと年齢計算｜VBA練習問題（12月23日）
VBA100本ノック 52本目：複数シートの一括印刷｜VBA練習問題（12月22日）
VBA100本ノック 51本目：シート一覧と印刷ページ数｜VBA練習問題（12月21日）
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.マクロって何？VBAって何？｜VBA入門
5.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
6.繰り返し処理（For Next)｜VBA入門
7.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
8.セルに文字を入れるとは（Range,Value）｜VBA入門
9.とにかく書いてみよう（Sub,End Sub）｜VBA入門
10.繰り返し処理（Do Loop）｜VBA入門
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。