VBA Excel：“yyyy”类型字符串到日期

Question

Noob问题：

如何将“yyyy”字符串转换为日期？

我的目标是执行以下操作

If "yyyy" < VBA.Date then
...
End If

Answer 1

“yyyy”是一个字符串。如果您想将今天的日期作为字符串获取，您可以使用：

Format(Date, "yyyy")

您可以使用CDate()将字符串转换为日期。

CDate("1/1/2013")

如果你只是想比较一年你可以做这样的事情：

If CInt("2012") < Format(Date, "yyyy") Then
    Debug.Print True
End If