Compare two dates against the system date

[gareth1979]

In simple term I want to create a simple vb script in excel that looks at the system date and then adds 1 to a cell on my sheet if it falls between a particular date range for example my dates 01/05/2018 to 31/05/2018 the system date is 28/05/2018 so adds 1 to my spreadsheet
I have tried playing around with numerous way but I am not getting anywhere
Public Sub test()
Dim d As Date
d = CDate(29 / 5 / 2019)
n = Now()
Range("a1").Value = d
If Year(d) = Year And Month(d) = Month Then
MsgBox "It works"
Else
MsgBox "It doesnt work"
End If
End Sub
Public Sub tryThis()

Dim xdate As Date
xdate = "4 / 27 / 2018"
Range("a1") = xdate
If Month(d) = Month(xdate) And Year(Date) = Year(xdate) Then
MsgBox "OK"
Else
MsgBox "not OK"
End If
End Sub

 

[Marcelo Branco]

Welcome to Mr Excel forum

The current year is 2018, not 2019, and you should use DateSerial
Try

Public Sub test()
Dim d As Date, n As Date

[COLOR=#ff0000]d = DateSerial(2018, 5, 29)[/COLOR]
n = Now()

Range("a1").Value = d
If Year(d) = Year(n) And Month(d) = Month(n) Then
    MsgBox "It works"
Else
    MsgBox "It doesnt work"
End If
End Sub

M.