jueves, noviembre 25, 2010

VB.Net - Obtener Semanas del Año


"Si usa algún código del siguiente tutorial, den el icono de ME GUSTA del Facebook que se encuentra en su mano derecha, para que se vuelva Seguidor del Blog y también comentenos que tal les pareció el tutorial"


Método utilizado para llenar un combo con las semanas que tiene el año. En ejemplo se aplica los meses del año 2010 y que tiene 51 semanas

Private Sub llenarComboFechas()
        dtSemanas = New DataTable("Semanas")
        dtSemanas.Columns.Add("Codigo", System.Type.GetType("System.Int32"))
        dtSemanas.Columns.Add("Nombre", System.Type.GetType("System.String"))
        dtSemanas.Columns.Add("Inicio", System.Type.GetType("System.DateTime"))
        dtSemanas.Columns.Add("Fin", System.Type.GetType("System.DateTime"))
        Dim fechaRef As New Date(2010, 1, 1)
        While fechaRef.DayOfWeek <> DayOfWeek.Monday
            fechaRef = fechaRef.AddDays(1)
        End While
        For i As Integer = 0 To 51
            Dim r As DataRow = dtSemanas.NewRow
            r("Codigo") = i + 1
            r("Nombre") = fechaRef.AddDays(i * 7) & " al " & fechaRef.AddDays((i * 7) + 5)
            r("Inicio") = fechaRef.AddDays(i * 7)
            r("Fin") = fechaRef.AddDays((i * 7) + 5)
            dtSemanas.Rows.Add(r)
        Next
        Me.cboSemana.DataSource = dtSemanas
        Me.cboSemana.DataTextField = "Nombre"
        Me.cboSemana.DataValueField = "Codigo"
        Me.cboSemana.DataBind()
End Sub



2 comentarios:

hi, new to the site, thanks.

Welcome to the site!!!!