Excel VBA - VBA中的日期和IF函數發出錯誤

Question

我有一個要求在哪里，我試圖找出數據中的日期是否大於或等於當前日期，那么它應該說“是”。

這是我的代碼，

RDate = Application.WorksheetFunction.if(RSDate>=Date, "YES", "NO")

我的錯誤是Object不支持此方法的屬性。 請幫助我。 分享你的意見

Answer 1

你應該使用DateDiff函數，你可以在這里學習MSDN如何使用它

If DateDiff("d", Date, RSDate) >= 0 Then
    RDate = "YES"
Else
    RDate = "NO"
End If

Answer 2

Application.WorksheetFunction.if()沒有這樣的功能

堅持使用單IIf()你可能想要使用IIf()函數：

RDate = IIf(RSDate >= Date, "YES", "NO")

Answer 3

為什么不使用If ？

If RSDate>=Date then 
    RDate = "YES"
Else
    RDate = "NO"
End If

或Case - 如果您需要超過2個RDate輸出，這將是有用的？

Select Case RSDate
    Case Is >= Date
        RDate = "YES"
    Case Else
        RDate = "NO"
End Select