主题：日期判断

1、如何判断给定时间是一年中的第几周？

2、如何比较日期里的时间部分？如果填入的Datetime格式的日期中时间不可以在（00：00~08：00，12：30~14：00，18：00~19：30）这三个时间区间中，怎么办？

在线等，挺急的~

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

System.Globalization.GregorianCalendar 这是个什么类型，没有见过呀；哪里有这些资料可以看看的？

这是.net的类型，网上搜索即可