主题：根据日期计算第几周

此主题相关图片如下：snap1.jpg

 

 

 

Dim rq As Date = Args(0)   '类别

 

 

Dim ia As  Integer

Dim ib As Integer

Dim ic As Integer

Dim iy As Integer

Dim ix As Integer

 

 

 

Dim rq1 As Date

 

 

rq1= "#1/1/" & rq.Year & "#"

 

ia = rq.DayOfYear

ib= rq1.DayOfWeek

 

ic=ia+ib '-2

iy = ic Mod 7

ix= ic \7

If iy<>0 Then ix=ix+1

Return ix

不是从1月1日开始，是从第一行开始，输入日期后自动显示第几周.

参考代码

 

Dim d As Date = "2018-07-28"
Dim start As Date = "2018-07-20" '起始日期
Dim w As Integer = Math.Ceiling(((d-start).TotalDays + 1) / 7)
msgbox(w)

动态赋值

 

If e.DataCol.Name = "日期" Then
   
    Dim fdr As DataRow = e.DataTable.Find("", "日期")
   
    Dim d As Date = e.DataRow("日期")
    Dim start As Date = fdr("日期")
    Dim w As Integer = Math.Ceiling(((d-start).TotalDays + 1) / 7)
    e.DataRow("第几周") = w
End If

 

6楼代码得不到想要的结果

 

If e.DataCol.Name = "日期" Then
   
    Dim fdr As DataRow = e.DataTable.Find("", "日期")
   
    Dim d As Date = e.DataRow("日期")
    Dim start As Date = fdr("日期")
    Dim w As Integer = Math.Ceiling(((d-start).TotalDays + 1) / 7)
    e.DataRow("第几周") = w
End If

 

表A只能一行一行的增加,行尾不能有空行,否则计算错误

If e.DataCol.Name = "日期" Then
    Dim d As Date = e.DataRow("日期")
    If d = Nothing Then
        e.DataRow("第几周") = Nothing
    Else
        Dim fdr As DataRow = e.DataTable.Find("", "日期")
        Dim start As Date = fdr("日期")
        Dim w As Integer = Math.Ceiling(((d-start).TotalDays + 1) / 7)
        e.DataRow("第几周") = w
    End If
End If