excel - VBA Excel：“yyyy”将字符串输入日期

Question

菜鸟问题：

如何将“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