VBA script for comparing dates

[viper7986]

I have a macro that has a date compare function, my problem is that i want it to ignore the year of the date so that the sheet can be re-used each year without changing the DateValue to the following year.

here is my code:

Sub lock_aug()
If Date < DateValue("8/31/2013") Then
Run "Lock_Date_Error.Lock_Date_Error"
Exit Sub
End If
ActiveSheet.Unprotect

If Date > DateValue("8/31/2013") Then
Range("ds5:ei70").Value = Range("ds5:ei70").Value
End If

If Date > DateValue("8/31/2013") Then
Range("ds5:ei70").Locked = True
End If

ActiveSheet.Protect Contents:=True
End Sub


i would like to do something like:
If date > datevalue (8/31/Year())

Is this even possible?

 

[dermie_72]

try this:
A = Year(today())
If Date < DateValue("8/31/" & A) Then

Then you can just use the A variable for you year across the whole macro.

 

[viper7986]

try this:
A = Year(today())
If Date < DateValue("8/31/" & A) Then

Then you can just use the A variable for you year across the whole macro.

I tried the above and i get a compile error: sub or function not defined

Sub lock_apr()
A = Year(today())
If Date < DateValue("4/30" & A) Then
Run "Lock_Date_Error.Lock_Date_Error"
Exit Sub
End If

i beleive i figured it out, i used

Sub lock_apr()
If Date < DateValue("4/30") Then
Run "Lock_Date_Error.Lock_Date_Error"
Exit Sub
End If

The script ran without any issues and performed what i wanted

 

[dermie_72]

Sorry, My bad on the script, if you had used:

A = Year(Now)

instead it would have worked too