Месяц differenece между двумя датами

Question

Как я могу получить правильный формат.

Допустит, у меня есть даты 21.03.2010 Дата до 21.05.2011

Моей разности дат должны возвращать что-то вроде этого

Months/Years 
    3/2010 
    4/2010 
    5/2010 
    ... 
    12/2010 
    1/2011 
    ... 
    5/2011 

Answer 1

Это должно заставить вас идти:

Private Sub Button50_Click(sender As Object, e As EventArgs) Handles Button50.Click 

    printDateRange(New Date(2010, 3, 21), New Date(2011, 5, 21)) 

End Sub 

Private Sub printDateRange(startDate As Date, endDate As Date) 

    Dim months As Integer = DateDiff(DateInterval.Month, startDate, endDate) 

    For parser As Integer = 0 To months 
     Dim newdate As Date = startDate.AddMonths(parser) 
     Debug.Print(String.Format("{0}/{1}", newdate.Month, newdate.Year)) 
    Next 

End Sub 

Вы будете все равно необходимо добавить все проверки и обработку ошибок и т. д.