即効テクニック |
●詳細● 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" =秒