主题：如何计算周别

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

人家只是以今天为例，告诉你如何计算周别和获取时间部分。
你还是先系统看一下帮助文件吧，否则回复你的问题，也没有多少意义。
 
自带的帮助很详细，图文并茂，按顺序学习即可。
如果看帮助有困难，这里也有个视频教程：
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