<div>
<div class="content wysiwyg-content">
Private Sub btnAugust_Click()<br />
<br />
Debug.Print Date<br />
If Date &lt;&nbsp;&quot;8/1/&quot; &amp;&nbsp;(Year(Date)) Then<br />
Debug.Print (&quot;date is less that 8/1/&quot; &amp;&nbsp;(Year(Date)))<br />
Else<br />
Debug.Print (&quot;date is greater that 8/1/&quot; &amp;&nbsp;(Year(Date)))<br />
End If<br />
<br />
Results:<br />
9/13/2013 <br />
date is less that 8/1/2013<br />
<br />
Why is 9/13/2013 less that 8/1/2013?
</div>
</div>


Private Sub btnAugust_Click()

Debug.Print Date
If Date < "8/1/" & (Year(Date)) Then
Debug.Print ("date is less that 8/1/" & (Year(Date)))
Else
Debug.Print ("date is greater that 8/1/" & (Year(Date)))
End If

Results:
9/13/2013 
date is less that 8/1/2013

Why is 9/13/2013 less that 8/1/2013?

Working with dates

Visual Basic .NET (VB.NET) is an object-oriented programming language implemented on the .NET framework, but also supported on other platforms such as Mono and Silverlight. Microsoft launched VB.NET as the successor to the Visual Basic language. Though it is similar in syntax to  Visual Basic pre-2002, it is not the same technology,