The Date object has the Day and Month property:
Dim today = Date.Today Dim day = today.Day Dim month = today.Month If day = 9 AndAlso month = 10 Then ' do something ... End If
Note that I used Date.Today instead of Date.Now , since you are still interested in the date part.
source share