下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

表A中有开始时间  和 结束时间  和年份半年的分段列

我想把以 开始时间 和 结束时间为时间长度，以 每年6月30日 为半年的基数 做成时间分段 转换成天数 分别填入对应的时间分段列

例如 表A中第一行数据 开始和结束时间分别为2015.10.15 和2016.6.30  那么他对应的分段就应该为 （2015.10.15-2015.12.31=77天，这个天数填写在【2015年下半年】的列中）  2016.1.1-2016.6.30=180天  这个天数填写在2016上半年的列中，以此类推 需要怎么做呢，求大神指点

这个时间跨度 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

有点蓝工程师，额。。。我真的不是故意的 不关表B的事情，我那个表B 只是用来做测试得，全部代码都是表A的，您做的这个代码是在表B中生成了天数，我需要的是，在表A当中计算开始时间，和 结束时间的是天数 然后填写在表A 的列中

此主题相关图片如下：qq图片20161202104059.png

例如 表A中列 开始时间 和 结束时间列 分别为2016.5.1 和  2017.8.1  那么首先应该先分时间段 为2016.5.1-2016.6.30计算出这个时间段是多少天，然后填写在表A中2016年上半年的列中，然后在分2016.7.1-2016.12.31这个时间段的天数 填写在表A 中2016年下半年的列中，然后计算出2017.1.1-2017.6.30 这个时间段的天数 然后填写在表A中2017年上半年的列中，这样的。。。。。真心不是故意的

datacolchanged事件

Select Case e.DataCol.Name
    Case "日期起止"
        Dim str As String = e.DataRow("日期起止")
        Dim arr() As String = str.Split("-")
        Dim d As Date = CDate(arr(0).Replace(".","-"))
        e.DataRow("开始时间") = d
        d = CDate(arr(1).Replace(".","-"))
        e.DataRow("结束时间")=d
    Case "开始时间","结束时间"
        If e.DataRow.IsNull("开始时间") = False AndAlso e.DataRow.IsNull("结束时间") = False
            Dim dta As DataTable = e.DataTable
            Dim dr = e.DataRow
            For Each dc As DataCol In dta.DataCols
                If dc.Name.StartsWith("A") OrElse dc.Name.StartsWith("B") Then
                    dr(dc.name) = Nothing
                End If
            Next
            Dim tempd1 As Date
            Dim tempd2 As Date
            Dim d_start As Date = dr("开始时间")
            Dim d_end As Date = dr("结束时间")
            Dim d_m1 As Date = new Date(d_start.Year, 6, 30)
            Dim d_e1 As Date = new Date(d_start.Year, 12, 31)
            Dim idx As Integer = 0
            If d_start <= d_m1 Then
                tempd1 = d_start
                If d_end <= d_m1 Then
                    tempd2 = d_end
                Else
                    tempd2 = d_m1
                    idx = 1
                End If
            Else
                tempd1 = d_start
                If d_end <= d_e1
                    tempd2 = d_end
                Else
                    tempd2 = d_e1
                    idx = 2
                End If
            End If
            Dim sp As TimeSpan = tempd2 - tempd1
            If tempd2 > new Date(tempd2.Year, 6, 30) Then
                dr("B" & tempd2.Year) = sp.TotalDays
            Else
                dr("A" & tempd2.Year) = sp.TotalDays
            End If
            If idx > 0 Then
                Dim d As Date = tempd2
                Do While d < d_end
                    tempd1 = d.AddDays(1)
                    Dim d2 As Date = iif(idx Mod 2 = 0, d.AddMonths(6), d.AddMonths(6).AddDays(1))
                    If d2 >= d_end Then
                        tempd2 = d_end
                    Else
                        tempd2 = d2
                    End If
                    sp = tempd2 - tempd1
                    If tempd2 > new Date(tempd2.Year, 6, 30) Then
                        dr("B" & tempd2.Year) = sp.TotalDays
                    Else
                        dr("A" & tempd2.Year) = sp.TotalDays
                    End If
                    idx += 1
                    d = d2
                Loop
            End If
        End If
End Select