For Loop里用日期增加方法
Dim dateStart As New DateTime(2007, 10, 1)Dim dateEnd As New DateTime(2007, 10, 30)
Dim intDays As Integer = dateEnd.Subtract(dateStart). Days
For i As Integer = 0 To intDays
' add i days to dateStart
' print the date
Next
页:
[1]