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