DateDiffについて教えてください

質問

初心者です
Ｅ列に入力されている日付から今日まで何日経過したかをＫ列に表示したいと思っています。
下記ではエラーになってしまうのですがDateDiffがおかしいのでしょうか？どなたか教えてください。

Sub 経過日カウント()

Dim K As Long
K = 2
Do While Cells(K, 2) <> ""
Cells(K, 11) = DateDiff(Cells(K, 5), Date, "d")
K = K + 1
Loop
End Sub

回答No.1

hana-hana3 · ベストアンサー

＞DateDiff(Cells(K, 5), Date, "d")

関数内のパラメーターの順番が違っています。
この程度の使い方はヘルプにも記載されていますし、ネットでも簡単に探せますよ。

DateDiff("d" , Cells(K, 5), Date)

http://homepage2.nifty.com/pasocon/nyumon/datediff.html