主题：日期判断

1、

Dim gc As System.Globalization.GregorianCalendar = new System.Globalization.GregorianCalendar()
Dim weekOfYear As Integer = gc.GetWeekOfYear(Date.Today,System.Globalization.CalendarWeekRule.FirstDay, DayOfWeek.Monday)
Return weekOfYear

2、获取输入的值，比较即可

Dim d As Date = Date.Now
msgbox(d)
Dim str As String = format(d, "HH:mm")
msgbox(str)
If str >= "00:00" AndAlso str <= "08:00" OrElse str >= "12:30" AndAlso str <= "14:00" OrElse str >= "18:00" AndAlso str <= "19:30" Then
    msgbox("符合")
Else
    msgbox("不符合")
End If