[SOLUCIONADO] Loop con meses del año

[estlui]

Buena tarde...

Como puedo hacer un loop con los meses del año?

Tengo un ddl con los meses del año, otro ddl con varios años a partir del año actual y una txt donde el usuario debe de digitar la cantidad de meses.

En base al mes y año que el usuario escoja (siempre mayor o igual a la fecha actual), y la cantidad de meses que digite en el txt, el sistema calcule hasta que mes sea el final del "periodo"

por ejemplo:

Mes: Septiembre
Año: 2013
Cantidad meses: 8

El sistema debe de desplegar en un gridview:

Sep 2013 / Oct 2013 / Nov 2013 / Dic 2013 / Ene 2014 / Feb 2014 / Mar 2014 / Abr 2014

Por mostrar la info en el gridview no hay problema, el problema lo tengo cuando cambia de Dic 2013 a Ene 2014.

otro ejemplo:

Mes: Febrero
Año: 2014
Cantidad meses: 3

Feb 2014 / Mar 2014 / Abr 2014

Anexo el codigo que tengo:

Código ASP:

Dim mesIni As Integer = ddlMeses.SelectedValue
            Dim anio As Integer = ddlAnios.SelectedValue
            Dim cantMeses As Integer = tbMeses.Text
 
            Dim mesActual As Integer = Month(Date.Now)
            Dim anioActual As Integer = Year(Date.Now)
 
            If mesIni >= mesActual And anio >= anioActual Then
                Dim dt As New DataTable
                Dim dr As DataRow
                Dim mesLetra As String
 
                For i = 1 To cantMeses
                    mesLetra = MonthName(mesIni, True)
                    dt.Columns.Add(mesLetra)
                    dr = dt.NewRow
                    'dr(mesLetra) = "asads"
                    dt.Rows.Add(dr)
                    mesIni = mesIni + 1
                Next
 
                gvDistribucion.DataSource = dt
                gvDistribucion.DataBind()
 
            Else
 

Cuando i es mayor a 12, es cuando brinca la liebre..... ejeeje

saludos y gracias

[estlui]

Hola a todos.....

Pues ayer por la noche tuve una flash o una vision de como hacer lo que requeria del loop con los meses del año..... a lo mejor porque los bulbos del cerebro ya estaban frescos... jejejeje...

Lo hice asi, esta muy simple pero en su momento no se me ocurria, se los dejo por si alguien le pasa:

Código ASP:

Dim mesIni As Integer = Month(tbMesAnio.Text)
            Dim anio As Integer = Year(tbMesAnio.Text)
            Dim cantMeses As Integer = tbMeses.Text
 
            Dim mesActual As Integer = Month(Date.Now)
            Dim anioActual As Integer = Year(Date.Now)
            Dim dr As DataRow
            If anio >= anioActual And mesIni >= mesActual Then
                Dim dt As New DataTable
                Dim mesLetra As String
                For i = 1 To cantMeses
                    mesLetra = MonthName(mesIni, False)
                    dt.Columns.Add(mesLetra & " " & anio)
 
                   If mesIni < 12 Then
                        mesIni = mesIni + 1
                    Else
                        mesIni = 1
                        anio += 1
                    End If
 
                Next
Dim requiPartida As Double = hf_costoRequi.Value / cantMeses
 
                dr = dt.NewRow
                For i = 0 To cantMeses - 1
                    dr(i) = FormatCurrency(requiPartida, 2)
                Next
 
                dt.Rows.Add(dr)
 
                gvDistribucion.DataSource = dt
                gvDistribucion.DataBind()
 

La clave estaba en esta seccion:

If mesIni < 12 Then
mesIni = mesIni + 1
Else
mesIni = 1
anio += 1
End If

Saludos y gracias