Date Comparison

[jkfeagle]

Alright, this has got to be simple but my brain is so drained from the day I can't get it right. I need a vba formula to determine if the current date is after April 1 of the current year. My weary melon thanks you in advance.

 

[SOS]

Function AfterApr1() As Boolean
   AfterApr1 = (Date > DateSerial(Year(Date), 4, 1))
End Function

 

[Khalid_Afridi]

use this

 If DatePart("m", Date) > 4 Then
 MsgBox "Greater than April"
 End If

This might solve your problem

Khalid

 

[vbaInet]

You may find the Month() function easier to work with.

If Month(Date()) > 4 Then

End If