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 ・・・新着記事一覧を見る
ツイッターで出されたVBAのお題をやってみた｜エクセル雑感（1月13日）
イベントプロシージャーの共通化（Enter,Exit）｜ユーザーフォーム入門（1月13日）
Rangeオブジェクトの論理演算（差集合と排他的論理和）｜VBA技術解説（1月10日）
イベントプロシージャーの共通化｜ユーザーフォーム入門（1月7日）
コントロールの動的作成｜ユーザーフォーム入門（1月6日）
Evaluateメソッド（文字列の数式を実行します）｜VBA技術解説（1月5日）
エクスポート（PDF/XPS）｜VBA入門（1月2日）
分析関数（OVER句,WINDOW句）｜SQL入門（12月25日）
取得行数を限定するLIMIT句｜SQL入門（12月21日）
外部ライブラリ（ActiveXオブジェクト）｜VBA入門（12月21日）
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜VBA入門
3.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
4.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
5.変数宣言のDimとデータ型｜VBA入門
6.繰り返し処理（For Next)｜VBA入門
7.マクロって何？VBAって何？｜VBA入門
8.セルに文字を入れるとは（Range,Value）｜VBA入門
9.空白セルを正しく判定する方法（IsEmpty,IsError,HasFormula）｜VBA技術解説
10.ひらがな⇔カタカナの変換｜エクセル基本操作
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。