主题：如何计算周别

 您好,我需要根据这个日期计算出周别,周一为每周第一天,请帮忙解答,谢谢！
1.时间:2016-03-03 14:46:03
   周别:??????

2.写出表达式计算时段,计算出这个时间是那个时段:

2016-03-03 12:00-12:29     时段为 12:00

2016-03-03 12:30-12:59     时段为 12:30

1、

 

Dim  d As Date = Date.Today
Dim  n As Integer = DateAndTime.DatePart(DateInterval.WeekOfYear, d, FirstDayOfWeek.Monday )
Return n

2、

 

Dim  d  As Date = #3/3/2016 12:29#
Dim t As timespan = d - d.Date
Return t

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

 你好,感谢您的帮助,date,不是今天,我有一列是<进入系统时间>
进入系统时间,我会经常添加日期和时间的

  你好,感谢您的帮助,date,不是今天,我有一列是<进入系统时间>
进入系统时间,我会经常添加日期和时间的

2、

 

Dim d As Date = Date.now
msgbox(d)
If d.Minute >= 30 Then
    d = new Date(d.year, d.Month, d.day, d.hour, 30,0)
Else
    d = new Date(d.year, d.Month, d.day, d.hour, 0, 0)
End If
msgbox(d)

人家只是以今天为例，告诉你如何计算周别和获取时间部分。
你还是先系统看一下帮助文件吧，否则回复你的问题，也没有多少意义。
 
自带的帮助很详细，图文并茂，按顺序学习即可。
如果看帮助有困难，这里也有个视频教程：
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=67187

不过最详细的还是帮助文件，要掌握好的话，还是需要看帮助的。

 

你若要得急，可以直接上传文件，我们帮你写好

如果是一次性的：

 

For Each dr As DataRow In DataTables("表名").DataRows
    Dim  d As Date = dr("日期列名")
    Dim  n As Integer = DateAndTime.DatePart(DateInterval.WeekOfYear, d, FirstDayOfWeek.Monday )
    dr("周别") = n
Next

 收到,谢谢,但是发现一个问题,我日期列名是空白时,周别返回1,怎么返回空白