DateDiff関数
DateDiff関数は、2つの指定した日付の時間間隔を表す値を返します。
さらに、
年の計算は違ったものとなっていますので注意してください。
DateDiff関数
DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])
interval
必ず指定します。
名前付き引数 date1 と date2 の間隔を計算するための、時間単位を表す文字列式を指定します。
名前付き引数 date1 と date2 の間隔を計算するための、時間単位を表す文字列式を指定します。
設定値 | 内容 |
yyyy | 年 |
q | 四半期 |
m | 月 |
y | 年間通算日 |
d | 日 |
w | 週日 |
ww | 週 |
h | 時 |
n | 分 |
s | 秒 |
date1, date2
必ず指定します。
この名前付き引数はバリアント型 (内部処理形式 Date の Variant) のデータ形式で指定します。
間隔を計算する 2 つの日付を指定します。
date2よりも時間的に後の日付をdate1に指定すると、DateDiff 関数は負の数を返します。
この名前付き引数はバリアント型 (内部処理形式 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 週とみなされます。
年度の第 1 週を表す定数を指定します。
省略すると、1 月 1 日を含む週が第 1 週とみなされます。
定数 | 値 | 内容 |
vbUseSystem | 0 | NLS API の設定値を使います。 |
vbFirstJan1 | 1 | (既定値) 1 月 1 日を含む週を年度の第 1 週として扱います。 |
vbFirstFourDays | 2 | 7 日のうち少なくとも 4 日が新年度に含まれる週を年度の第 1 週として扱います。 |
vbFirstFullWeek | 3 | 全体が新年度に含まれる最初の週を年度の第 1 週として扱います。 |
週の扱いについて
interval に週日 ("w") を指定すると、2 つの日付の間の週の数が計算されます。
date1 が月曜日の場合は、date2 までの間の月曜日の数が返されます。
このときdate2 の月曜日は計算に入りますが、date1 の月曜日は計算に入りません。
一方、interval に週 ("ww") を指定した場合は、2 つの日付の間の暦上の週の数が計算されます。
つまり、date1 と date2 の間の日曜日の数が返されます。
date2に指定した日付が日曜日であれば、date2 は計算に入りますが、date1 は日曜日であっても計算に入りません。
このように複雑であり、あまり実用的とは言えません。
間隔の日数を求め、7で割り曜日の調整を行う等での対応が望ましいでしょう。
date1 が月曜日の場合は、date2 までの間の月曜日の数が返されます。
このときdate2 の月曜日は計算に入りますが、date1 の月曜日は計算に入りません。
つまり、date1 と date2 の間の日曜日の数が返されます。
date2に指定した日付が日曜日であれば、date2 は計算に入りますが、date1 は日曜日であっても計算に入りません。
間隔の日数を求め、7で割り曜日の調整を行う等での対応が望ましいでしょう。
yyyy(年)について
シートのDATEDIF関数の"y"とは違い、直接に年齢計算はしてくれません。
あくまで、年の間隔だけの値になります。
12月31日とその次の年の1月1日を比較すると、DateDiff関数の年("yyyy")は、1日後であっても1を返します。
DateDiff("yyyy", #12/31/2018#, #1/1/2019#)
DateDiff("yyyy", #1/1/2018#, #2/1/2019#)
この結果は、どちらも1となります。
つまり、単純な年の引き算になっています。
これは、
Year関数で求めた年数を引き算した結果と同じです。
あくまで、年の間隔だけの値になります。
DateDiff("yyyy", #1/1/2018#, #2/1/2019#)
この結果は、どちらも1となります。
つまり、単純な年の引き算になっています。
これは、
Year関数で求めた年数を引き算した結果と同じです。
Year関数は、日付から年の値を返します、バリアント型(内部処理形式IntegerのVariant)の値を返します。Year関数 Year(date) date 必ず指定します。日付を表すバリアント型(Variant)の値、数式、文字列式、またはこれらを組み合わせた値を指定します。
年齢計算について
WorksheetFunctionにDateDifがありません。
従って、VBAで自作するしかありません。
年齢の計算 | Microsoft Docs
ここでは、以下が紹介されています。
DateDiff関数が使われていて、かつ面倒な計算をしていますが、
(関数を紹介する意味でいろいろな関数を使っているのだと思いますが)
もっと単純かつ汎用的に、以下でどうでしょうか。
従って、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("yyyy", #7/1/1970#, #6/9/2013#) ・・・ 43 年数(年齢ではない)
DateDiff("m", #4/1/1970#, #6/9/2013#) ・・・ 518
DateDiff("d", #4/1/1970#, #6/9/2013#) ・・・ #6/9/2013# - #4/1/1970# これと同じです。
DateDiff("m", #4/1/1970#, #6/9/2013#) ・・・ 518
DateDiff("d", #4/1/1970#, #6/9/2013#) ・・・ #6/9/2013# - #4/1/1970# これと同じです。
マクロVBA関数の一覧と解説です、どんな関数があるかは一度は確認しておくとをお勧めいたします。どんな関数があるだけでも知っておけば、詳細の使い方は実際に使うときに調べても良いでしょう。文字列操作…34 分岐…3 型変換…14 データ判定…10 日付時刻…20 配列…6 ファイル操作…14 数学/財務…28 その他……
同じテーマ「VBA関数」の記事
VarType関数は、引数に指定された変数の内部処理形式を表す整数型(Integer)の値を返します。VarType関数 VarType(varname) varname 必ず指定します。引数varnameには、ユーザー定義型の変数を除く、任意のバリアント型(Variant)の変数を指定します。
Date関数Date関数は、現在のシステムの日付を返します、バリアント型(内部処理形式DateのVariant)の値を返します。Date関数 Date 現在の日付を設定するには、Dateステートメントを使います。グレゴリオ暦の場合、DateとDate$の動作は同じです。
DateAdd関数DateAdd関数は、指定された時間間隔を加算した日付を返します、バリアント型(内部処理形式StringのVariant)で返します。DateAdd関数 DateAdd(interval,number,date) interval 必ず指定します。
DateDiff関数DatePart関数
DatePart関数は、日付の指定した部分の値を返します、バリアント型(内部処理形式DateのVariant)の値を返します。DatePart関数 DatePart(interval,date[,firstdayofweek[,firstweekofyear]]) interval 必ず指定します。
DateSerial関数DateSerial関数は、引数に指定した年、月、日に対応する日付を返す関数です、バリアント型(内部処理形式DateのVariant)の値を返します。DateSerial関数 DateSerial(year,month,day) year 必ず指定します。
DateValue関数DateValue関数は、日付を表す文字列式を日付に変換します、バリアント型(内部処理形式DateのVariant)の値を返します。DateValue関数 DateValue(date) date 必ず指定します。引数dateには、通常、100年1月1日から9999年12月31日までの範囲の日付を表す文字列式を指定…
Year関数Year関数は、日付から年の値を返します、バリアント型(内部処理形式IntegerのVariant)の値を返します。Year関数 Year(date) date 必ず指定します。日付を表すバリアント型(Variant)の値、数式、文字列式、またはこれらを組み合わせた値を指定します。
Month関数Month関数は、日付から何月かを表す月の値を返します、バリアント型(内部処理形式IntegerのVariant)の値を返します。Month関数 Month(date) date 必ず指定します。日付を表すバリアント型(Variant)の値、数式、文字列式、またはこれらを組み合わせた値を指定します。
MonthName関数MonthName関数は、指定された月を表す文字列を返します。MonthName関数 MonthName(month[,abbreviate]) month 必ず指定します。月を示す数値を指定します。
Day関数Day関数は、日付から何日かを表す日の値を返します、バリアント型(内部処理形式IntegerのVariant)の値を返します。Day関数 Day(date) date 必ず指定します。日付を表すバリアント型(Variant)の値、数式、文字列式、またはこれらを組み合わせた値を指定します。
新着記事NEW ・・・新着記事一覧を見る
ブール型(Boolean)のis変数・フラグについて|VBA技術解説(2024-04-05)
テキストの内容によって図形を削除する|VBA技術解説(2024-04-02)
ExcelマクロVBA入門目次|エクセルの神髄(2024-03-20)
VBA10大躓きポイント(初心者が躓きやすいポイント)|VBA技術解説(2024-03-05)
テンキーのスクリーンキーボード作成|ユーザーフォーム入門(2024-02-26)
無効な前方参照か、コンパイルされていない種類への参照です。|エクセル雑感(2024-02-17)
初級脱出10問パック|VBA練習問題(2024-01-24)
累計を求める数式あれこれ|エクセル関数応用(2024-01-22)
複数の文字列を検索して置換するSUBSTITUTE|エクセル入門(2024-01-03)
いくつかの数式の計算中にリソース不足になりました。|エクセル雑感(2023-12-28)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得(End,Rows.Count)|VBA入門
2.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
3.RangeとCellsの使い方|VBA入門
4.ひらがな⇔カタカナの変換|エクセル基本操作
5.繰り返し処理(For Next)|VBA入門
6.変数宣言のDimとデータ型|VBA入門
7.ブックを閉じる・保存(Close,Save,SaveAs)|VBA入門
8.並べ替え(Sort)|VBA入門
9.セルのクリア(Clear,ClearContents)|VBA入門
10.Findメソッド(Find,FindNext,FindPrevious)|VBA入門
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。