日付と日付の間隔を求めるには DateDiff 関数を使う。
DateDiff( Interval, Date1, Date2, [FirstDayOfWeek = vbSunday], [FirstWeekOfYear = vbFirstJan1] )-
Interval : 間隔を計算するための時間単位を表す文字列
- yyyy : 年
- q : 四半期
- m : 月
- y : 年間通算日
- d : 日
- w : 週日
- ww : 週
- h : 時
- n : 分
- s : 秒
-
Date1, Date2 : 日付（Date1 が基準となる）
-
FirstDayOfWeek : 週の始まりの曜日。省略した場合は日曜となる。
- vbUseSystemDayOfWeek（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週として扱う
