Excel VBA - VBA中的日期和IF函数发出错误

Question

我有一个要求在哪里，我试图找出数据中的日期是否大于或等于当前日期然后它应该说＆＃34;是＆＃34;。

这是我的代码，

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()函数：

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