vba excel 中的 DateTime.Now 比較日期

Question

我在 excel 中的 vba 有問題。 我想讓 function 檢查通過日期的第二天是否已經過了。 我知道我現在正在比較兩個字符串，我不知道如何將其更改為日期格式。 這是我的代碼片段：

Dim MyDate As Date

Set Passed = Range("D2")
MyDate = Format(DateTime.Now, "DD-DD.MM.YYYY")
If MyDate < Passed Then
Passed.Interior.ColorIndex = 45
ElseIf MyDate > Passed Then
Passed.Interior.ColorIndex = 43

D2 是短日期格式（例如 02-05.02.2021）

Answer 1

使用CDate function 將字符串數據類型轉換為日期數據類型。

例如CDate(Passed)

您還需要刪除格式 function 因為這會將您的DatetTime.Now轉換為字符串

If CDate(Range("D2")) > DateTime.Now() Then

   'Do Something
Else
   'Do Something else
EndIf