vb.net цикл через этот месяц и последние 6 месяцев

Question

Я пытаюсь выполнить цикл в этом месяце до последних шести месяцев, используя 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, пожалуйста)

Answer 1

Хотите знать, как сделать цикл месяц за месяцем Квантовый скачок?

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