HOME > 即効テクニック > Excel VBA > 日付・時刻関連のテクニック > DateDiff関数を使って日付や時刻の間隔を取得する

即効テクニック

日付・時刻関連のテクニック

DateDiff関数を使って日付や時刻の間隔を取得する

( - )
●詳細●
DateDiff関数を使って、今日から指定の日までの日付の間隔を、メッセージボックスに表示します。
DateDiff関数は、2つの日付または時刻を比較して、その差を返します。

Sub Sample() 
    Dim myToday As String   '今日の日付 
    Dim myDate As String    '指定日付 
    Dim Days As String      '間隔(日) 

    myToday = Year(Date) & "年" & Month(Date) & "月" & Day(Date) & "日"←(1)
    myDate = "1999年6月1日"←(2)
    Days = DateDiff("d",myDate, Date) & "日"←(3) 

    MsgBox myDate & "から" & myToday & "までの日数:" & Days

End Sub 

(1)メッセージボックスに表示するための今日の年・月・日を取得しています。
(2)比較する日付をセットします。 
(3)日付の間隔を取得します。 

*”d”(日付間隔)の他に下記の値も取得できます。

    "q" =四半期
    "m" =月
    "y" =年間通算日
    "d" =日
    "w" =週日
    "ww"=週

    "h" =時
    "n" =分
    "s" =秒