资讯王 发表于 2009-8-15 06:52:44

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]
查看完整版本: For Loop里用日期增加方法