VBA 单元格日期与当前日期比较

VBA 单元格日期与当前日期比较的代码：

'日期小于今天的
If IsDate(Worksheets("xxx").Range("A" & 0)) And CDate(Worksheets("xxx").Range("A" & 0)) < Date Then
    ...
End If

xxx Sheet中A0单元格为日期字符串且小于当前日期的。
（完）