Warning: file_get_contents(/data/phpspider/zhask/data//catemap/8/linq/3.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
vb.net循环本月和过去6个月_Vb.net_Loops - Fatal编程技术网

vb.net循环本月和过去6个月

vb.net循环本月和过去6个月,vb.net,loops,Vb.net,Loops,我尝试使用vb.net循环这个月直到过去的六个月,并将月份作为整数和年份,然后将其传递给我的sql语句。但我似乎无法理解 到目前为止,我得到了这个: Dim dtNow As DateTime = DateTime.Now Dim pastSixMonths As DateTime = dtNow.AddMonths(-6) For i As Integer = dtNow.Month To pastSixMonths.Month

我尝试使用vb.net循环这个月直到过去的六个月,并将月份作为整数和年份,然后将其传递给我的sql语句。但我似乎无法理解

到目前为止,我得到了这个:

        Dim dtNow As DateTime = DateTime.Now
        Dim pastSixMonths As DateTime = dtNow.AddMonths(-6)

        For i As Integer = dtNow.Month To pastSixMonths.Month

        Next

有人能帮忙吗(请不要linq)

你想知道如何逐月循环量子跳跃吗

Dim result As New List(Of String)
Dim currentDate = Now()
Dim last6Month = Now().AddMonths(-6)
While currentDate >= last6Month
    result.Add(String.Format("{0}-{1}", currentDate.Month, currentDate.Year))
    currentDate = currentDate.AddMonths(-1)
End While

result.Clear()
' or the other way round :
currentDate = Now().AddMonths(-6)
While currentDate <= Now()
    result.Add(String.Format("{0}-{1}", currentDate.Month, currentDate.Year))
    currentDate = currentDate.AddMonths(1)
End While
Dim结果作为新列表(字符串)
Dim currentDate=Now()
Dim last6Month=Now().AddMonths(-6)
当前日期>=最近6个月
Add(String.Format(“{0}-{1}”,currentDate.Month,currentDate.Year))
currentDate=currentDate.AddMonths(-1)
结束时
结果.清除()
或者反过来说:
currentDate=Now().AddMonths(-6)

当currentDate时,您想知道如何逐月循环Quantum Leap吗

Dim result As New List(Of String)
Dim currentDate = Now()
Dim last6Month = Now().AddMonths(-6)
While currentDate >= last6Month
    result.Add(String.Format("{0}-{1}", currentDate.Month, currentDate.Year))
    currentDate = currentDate.AddMonths(-1)
End While

result.Clear()
' or the other way round :
currentDate = Now().AddMonths(-6)
While currentDate <= Now()
    result.Add(String.Format("{0}-{1}", currentDate.Month, currentDate.Year))
    currentDate = currentDate.AddMonths(1)
End While
Dim结果作为新列表(字符串)
Dim currentDate=Now()
Dim last6Month=Now().AddMonths(-6)
当前日期>=最近6个月
Add(String.Format(“{0}-{1}”,currentDate.Month,currentDate.Year))
currentDate=currentDate.AddMonths(-1)
结束时
结果.清除()
或者反过来说:
currentDate=Now().AddMonths(-6)

而currentDate将永远循环给我m=2和y=2012@Sam1例如我一开始就错过了任务。现在它可以按预期工作了。多亏了这一点,是否可以用其他方式将月份和年份设置为9-2011、10-2011、11-2011、12-2011、1-2012、2-2012而不是1-2012、2-2012、12-2011、11-2011、10-2011、9-2011这将永远循环给我m=2和y=2012@Sam1例如我一开始就错过了任务。现在它可以按预期工作了。多亏了这一点,是否可以将月份和年份换成其他方式,例如9-2011、10-2011、11-2011、12-2011、1-2012、2-2012,而不是1-2012、2-2012、12-2011、11-2011、10-2011、9-2011