Excel VBA – VBA中的date和IF函数提供了一个错误

我有一个要求在哪里，我正在尝试查找数据中的date是否大于或等于当前date，那么它应该说“是”。

这是我的代码，

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

我的错误是对象不支持这个方法的属性。 请帮助我。 分享你的意见

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