ExcelのVBAのDateDiff関数
ザ DateDiff関数 に Excel VBA 2つの日付の間の日数を取得するために使用できます。
ワークシートにコマンドボタンを配置し、次のコード行を追加します。
Dim firstDate As Date, secondDate As Date, n As Integer
firstDate = DateValue("Jun 19, 2010")
secondDate = DateValue("Jul 25, 2010")
n = DateDiff("d", firstDate, secondDate)
MsgBox n
firstDate = DateValue("Jun 19, 2010")
secondDate = DateValue("Jul 25, 2010")
n = DateDiff("d", firstDate, secondDate)
MsgBox n
説明:まず、2つの日付を宣言します。 次に、DateValue関数を使用して2つの日付を初期化します。 DateDiff関数には3つの引数があります。 2つの日付の間の日数が必要なので、最初の引数に "d"を入力します。最後に、MsgBoxを使用して2つの日付間の日数を表示します。
シート上のコマンドボタンをクリックすると、結果が表示されます。
"d"を "ww"に変更して、2つの日付間の週数を取得します。 Visual Basic EditorのDateDiffにカーソルを置き、F1をクリックして他の間隔指定子のヘルプを表示します。