Excel VBA的Date（）函数正在运行

Question

VBA抱怨什么，但我不知道那是什么。

我的代码：

Sub datesnstuff()
    Const today = Now()
    Const yesterday = Date(Year(today),Month(today),Day(today) - 1)
End Sub

它给了我以下错误：

Compile error:

Expected: )

我认为很清楚我想要它做什么，但Excel很痛苦。它甚至不允许我使用Date(2015,1,1)。

任何帮助都将不胜感激。

Answer 1

Date是一个属性，不接受参数。

您想要DateSerial()。

Answer 2

Date()函数不接受任何参数，并返回当前系统日期。尝试：

yesterday = DateAdd("d", -1, today)

此外，您无法在Const符号的右侧声明一个带有函数的=。它必须是常数值。