DateDiff関数

DateDiff関数の使用例 日付の差分をさまざまな形式で表示する例です。 Sub sample_ef039_01() Dim wDate1 As Date Dim wDate2 As Date '変数に日付と時刻を設定 wDate1 = DateSerial(2013, 4, 1) + TimeSerial(1, 23, 45) wDate2 = DateSerial(2013, 5, 5) + TimeSerial(12, 34, 56) Debug.Print "日付１：" & wDate1 Debug.Print "日付２：" & wDate2 Debug.Print "四半期：" & DateDiff("q", wDate1, wDate2) Debug.Print "月 ：" & DateDiff("m", wDate1, wDate2) '2つの日付の間にある週の数 Deb