以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎样计算第几周  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=18203)

--  作者:老有所乐
--  发布时间:2012/4/6 7:31:00
--  怎样计算第几周

从星期一 到 星期日  为一个星期,按照法定的星期,计算日期列中的日期是第几周,即订单表中“第几周”列的刷新代码如何写,谢谢!!

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目22.table


--  作者:mr725
--  发布时间:2012/4/6 8:57:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar


--  作者:y2287958
--  发布时间:2012/4/6 9:12:00
--  
If e.DataCol.Name = "日期" Then
    If e.DataRow.IsNull("日期") Then
        e.DataRow("第几周") = Nothing
    Else
        Dim calCommon  As New System.Globalization.GregorianCalendar()
        Dim dt As Date = e.DataRow("日期")
        e.DataRow("第几周") = calCommon.GetWeekOfYear(dt, System.Globalization.CalendarWeekRule.FirstDay, 0)
    End If
End If

--  作者:老有所乐
--  发布时间:2012/4/6 9:27:00
--  

谢谢两位!

代码不理解