VBA Excel Date Dilema , I want to compare today's Year

Question

I want to compare dates(SOP) i have on a sheet to today's YEAR , what i have till know is

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

I want objDate to be Today's Year , help please .

`objDate = DateSerial(Year(Now), 12, 31)`. Note that your Hungarian notation is misleading - dates aren't objects. — Comintern, Nov 18 '16 at 14:37
A quick search would give you `Year(Date)` will return the current year. — Tim Wilkinson, Nov 18 '16 at 14:37

score 1 · Answer 1 · answered Nov 18 '16 at 14:37

1

use VBA Year() function:

objDate=year(now)

answered Nov 18 '16 at 14:37

user3598756

28,893
4
18
28

VBA Excel Date Dilema , I want to compare today's Year

1 Answers1