主题：窗口内的时间比较

Dim d1 As Date = #11/20/2011#
Dim d2 As Date =  #11/1/2011#
Dim d3 As Date = #11/20/2011#
If d1 >=d2 AndAlso d1<= d3 Then
    messageBox.show("范围内")
End If