DateDiff関数
DateDiff関数は、2つの指定した日付の時間間隔を表す値を返します。
さらに、
年の計算は違ったものとなっていますので注意してください。
DateDiff関数
名前付き引数 date1 と date2 の間隔を計算するための、時間単位を表す文字列式を指定します。
| 設定値 | 内容 |
| yyyy | 年 |
| q | 四半期 |
| m | 月 |
| y | 年間通算日 |
| d | 日 |
| w | 週日 |
| ww | 週 |
| h | 時 |
| n | 分 |
| s | 秒 |
date1, date2
この名前付き引数はバリアント型 (内部処理形式 Date の Variant) のデータ形式で指定します。
間隔を計算する 2 つの日付を指定します。
date2よりも時間的に後の日付をdate1に指定すると、DateDiff 関数は負の数を返します。
週の始まりの曜日を表す定数を指定します。
省略すると、日曜日を指定したものとみなされます。
| 定数 | 値 | 内容 |
| vbUseSystem | 0 | NLS API の設定値を使います。 |
| vbSunday | 1 | (既定値) 日曜 |
| vbMonday | 2 | 月曜 |
| vbTuesday | 3 | 火曜 |
| vbWednesday | 4 | 水曜 |
| vbThursday | 5 | 木曜 |
| vbFriday | 6 | 金曜 |
| vbSaturday | 7 | 土曜 |
年度の第 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関数の使用例
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関数
Year関数
Month関数
MonthName関数
Day関数
新着記事NEW ・・・新着記事一覧を見る
イータ縮小ラムダ（eta reduced lambda）｜エクセル入門(2023-11-20)
PIVOTBY関数（縦軸と横軸でグループ化して集計）｜エクセル入門(2023-11-19)
GROUPBY関数（縦軸でグループ化して集計）｜エクセル入門(2023-11-18)
PY関数（Pythonコードをセル内で実行）｜エクセル入門(2023-11-17)
画像「セルに配置」のVBAについて（365の新機能）｜VBA技術解説(2023-11-13)
スピルのゴーストの範囲を選択するVBA｜ツイッター出題回答 (2023-10-31)
エクセル試験3：月間の所定労働時間｜エクセル練習問題(2023-10-04)
エクセル試験2：所得税の計算｜エクセル練習問題(2023-10-04)
エクセル試験1：曜日別の平均客単価｜エクセル練習問題(2023-10-04)
列全体を指定する時のRangeとColumnsの違い｜ツイッター出題回答 (2023-09-24)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜VBA入門
3.繰り返し処理（For Next)｜VBA入門
4.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
5.変数宣言のDimとデータ型｜VBA入門
6.条件分岐（IF）｜VBA入門
7.ブックを閉じる・保存（Close,Save,SaveAs）｜VBA入門
8.並べ替え（Sort）｜VBA入門
9.マクロとは？VBAとは？VBAでできること｜VBA入門
10.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。