VBA Excel Date Dilema，我想比较今天的年份

Question

我想比较一张纸上的日期（SOP）到今天的年份，我知道的是

objDate = CDate("12/31/2016")

For Row = 2 To MAX_Row 
Application.StatusBar = "SOPintheNextYears. Progress: " & Row & " of " & MAX_Row

If (Worksheets(NBG_RegionaDataWorksheetName).Cells(Row, SOP).Value <= objDate

我希望objDate成为今天的年份，请帮忙。

Answer 1

使用VBA Year()功能：

class:thumbnail