Dim ms As String = "10,11,12,1,2"
Dim n As Integer = 3
Dim s As String = "201610"
Dim d As Date = new Date(s.SubString(0,4),s.SubString(4),1)
Dim ary() As String = ms.split(",")
Dim c As Integer = iif(ary.length Mod n = 0, ary.length \ n - 1, ary.length \ n)
For i As Integer = 0 To c
If ary.length >= (i+1)*n
d = d.AddMonths(n)
Else
d = d.AddMonths(ary.length Mod n)
End If
msgbox(d)
Next
[此贴子已经被作者于2016/7/26 11:07:35编辑过]