For Loop里用日期增加方法

1. Dim dateStart As New DateTime(2007, 10, 1)
   
2. Dim dateEnd As New DateTime(2007, 10, 30)
   
3. Dim intDays As Integer = dateEnd.Subtract(dateStart). Days
   
4. 
   
5. For i As Integer = 0 To intDays
   
6. ' add i days to dateStart
   
7. ' print the date
   
8. Next

复制代码