vb.net中如何将日期、时间作为循环变量？

[yirav]

数据存在数据库里，vb.net已经连接数据库。希望先将日期作为循环变量进行外循环，再在2009/1/5里从9:35开始对时间进行循环，然后再转到2009/1/6进行循环。本人新手，希望各位能指教一下。

[ajianchina]

不要用循环替换日期的sql查询语句来查询数据库，第一步先将条件范围的数据一次查询，在查询结果的数据集中进行你的循环操作。

'开始时间
Dim startDay As DateTime = DateTime.Now.[Date]
'截止时间
Dim endDay As New DateTime(2015, 12, 1)
Dim d As DateTime = startDay

While d <= endDay
	'每循环一次，时间d增加一天
	d.AddDays(1)
End While

Dim d As DateTime = startDay

While d <= endDay
	'每循环一次，时间d增加一小时
	d.AddHours(1)
End While

[yirav]

引用 1 楼 ajianchina 的回复:

不要用循环替换日期的sql查询语句来查询数据库，第一步先将条件范围的数据一次查询，在查询结果的数据集中进行你的循环操作。

'开始时间
Dim startDay As DateTime = DateTime.Now.[Date]
'截止时间
Dim endDay As New DateTime(2015, 12, 1)
Dim d As DateTime = startDay

While d <= endDay
	'每循环一次，时间d增加一天
	d.AddDays(1)
End While

Dim d As DateTime = startDay

While d <= endDay
	'每循环一次，时间d增加一小时
	d.AddHours(1)
End While

但是日期不是每天连着的，它中间有间断的，也是每循环一次就增加1天吗？不能用for循环？

[ajianchina]

我不太清楚你要对数据库进行日期循环查询的目的是什么，不过你完全没有必要这样做的，你只需按日期字段进行GROUP BY分组查询，然后对记录集的各分组进行循环就可以了，你应该先去了解一下数据库的一些查询方式。

[yirav]

引用 3 楼 ajianchina 的回复:

我不太清楚你要对数据库进行日期循环查询的目的是什么，不过你完全没有必要这样做的，你只需按日期字段进行GROUP BY分组查询，然后对记录集的各分组进行循环就可以了，你应该先去了解一下数据库的一些查询方式。

嗯，我是希望在第一天循环找到一个满足条件的循环点之后就立刻转到第二天进行循环，不再管第一天之后的数据。我再试试

[ajianchina]

不知道你在说什么，总之，回头有别忘记结贴啊。

[win7cc]

hehe 你什么软件需要用到？

[无涯大者]

最好用SQL语句处理这些问题！

[lianyou3896]

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim datTim1 As Date = #2/26/2015#
Dim datTim2 As Date = #3/9/2015#
Do While datTim1 <= datTim2
Debug.Print(datTim1)
datTim1 = DateAdd(DateInterval.Day, 1, datTim1)
Loop
End Sub

[lianyou3896]

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button2.Click
'循环开始的时间
Dim datTim1 As Date = #2/26/2015#
'循环结束的时间
Dim datTim2 As Date = #3/9/2015#
'循环体
Do While datTim1 <= datTim2
Debug.Print(datTim1) '获得循环结果
datTim1 = DateAdd(DateInterval.Day, 1, datTim1) '其中的1为循环步距
Loop
End Sub