有点蓝 老师 谢谢先但是楼上代码运行只能实现一个固定的年份，
对于不固定的未来时间如2015-10-13怎么进行呢？
结合你的思路：
仿写了如下代码 运行后可以任意制定时间段来进行拆分了。
Dim d1 As Date = new Date(2014,1,1)
Dim d2 As Date = new Date(2015,10,13)
Dim t As TimeSpan = d2 - d1
Output.Show(t.Days & "天")
Dim days As Integer = d1.AddYears(1).AddSeconds(-1).DayOfYear
For i As Integer = 1 To t.Days
Output.Show(d1.AddDays(i))
Dim dr As DataRow = DataTables("表A").AddNew()
Dim idx As Integer = Tables("表A").FindRow(dr)
If idx > 0 Then
Dim r As Row = Tables("表A").Rows(idx-1)
dr("日期") = d1.AddDays(i)
End If
Next
但是遇见一个问题 那就是为什么生成的日期中不含初始时间2014-1-1呢？
还麻烦有点蓝老师多多指导下！谢谢！
加好友 
发短信
Post By：2016/10/13 16:06:00 [显示全部帖子]
