关于分段时间 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目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上半年的列中，以此类推需要怎么做呢，求大神指点

这个时间跨度

求技术大大帮个忙谢谢拜服

参考这个：http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=93565

有点蓝大神，我参考了之前发的那个帖子，之前那个用的是OUTSHOW函数当我赋值到列的时候就不行了，希望您能在我的附件中帮忙写下代码可以吗再次谢谢您

参考下面的代码改一下

Dim dta As DataTable = DataTables("表A")
For Each dr As DataRow In dta.Select("开始时间 is not null and 结束时间 is not null")
    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
Next

[此贴子已经被作者于2016/12/2 11:39:04编辑过]

以下是引用有点色在2016/12/2 9:48:00的发言：

参考下面的代码改一下

Dim dta As DataTable = DataTables("表A")
For Each dr As DataRow In dta.Select("开始时间 is not null and 结束时间 is not null")
    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 d_m2 As Date = new Date(d_end.Year, 6, 30)
    Dim d_e2 As Date = new Date(d_end.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 d1 As Date = iif(idx Mod 2 = 0, d_m2, d_e2)
            Dim d2 As Date = iif(idx Mod 2 = 0, d.AddMonths(6), d.AddMonths(6).AddDays(1))
            If d2 >= d1 Then
                tempd2 = d1
            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
Next

有点色大神请挪步名称为再次求教关于时间分段问题，那个帖子，我再那个帖子的附件中更改了列这个帖子作废了，之前的技术员他请事假一个月，我一个做财务的基本不会，原来的软件打不开了，所以我自己做了个表就是想计算几个数据，求您帮我弄下，不是当您是免费的代码编译器。。。再次感谢有点色工程师，求您帮个忙哈

这段代码放入事件当中一执行直接就关闭了

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.rar

您看这段代码放进去一执行直接就关闭了

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

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

这个时间跨度

[此贴子已经被作者于2016/12/2 10:13:26编辑过]

单独做个按钮，执行5楼的代码，而不是放在DataColChanged事件里。

主题：关于分段时间