以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  日期判断  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=98332)
--  作者：xvkewen
--  发布时间：2017/3/28 10:53:00
--  日期判断

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

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

[此贴子已经被作者于2017/3/28 11:29:19编辑过]
--  作者：xvkewen
--  发布时间：2017/3/28 11:48:00
--  
在线等，挺急的~
--  作者：有点色
--  发布时间：2017/3/28 12:06:00
--  

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
--  作者：xvkewen
--  发布时间：2017/3/28 12:30:00
--  
System.Globalization.GregorianCalendar 这是个什么类型，没有见过呀；哪里有这些资料可以看看的？
--  作者：有点蓝
--  发布时间：2017/3/28 14:24:00
--  
这是.net的类型，网上搜索即可