Calculo de la Semana en un Mes especifico(les ayudara en Modulo de Planilla)

Este codigo me solicito uno de mis amigos para su modulo, y si estan buscando lo mismo o parecido es cuestion que adapten el codigo a sus modulo, esta desarrollado en Visual Studio .Net 2008

Para esta pequeña aplicacion Necesitaremos:

1 Form : Que es el contenedor de los demas objetos.

1 ListBox : Donde saldra la cantidad de semanas del mes Seleccionado.

1 Combobox : Nos permitira selecionar un mes deternimado.

Empecemos con el Diseño:

Hacemos Doble clicken el Button y codificaremos lo siguiente:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim V1, S1, S2 As Integer

SemanaInicial = DatePart(DateInterval.WeekOfYear, _
New Date(Now.Year, ComboBox1.SelectedIndex, 1), _
FirstDayOfWeek.Monday, FirstWeekOfYear.Jan1)

If ComboBox1.SelectedIndex < style="color: rgb(51, 51, 255);">Then
SemanaFinal = DatePart(DateInterval.WeekOfYear, New Date(Now.Year,_
ComboBox1.SelectedIndex + 1, 1).AddDays(-1), FirstDayOfWeek.Monday,_
FirstWeekOfYear.Jan1)
Else
SemanaFinal = DatePart(DateInterval.WeekOfYear,New Date(Now.Year + 1, 1, 1).AddDays(-1), _FirstDayOfWeek.Monday, FirstWeekOfYear.Jan1)
End If
Select ComboBox1.SelectedIndex
Case 1
S1 = SemanaInicial S2 = SemanaFinal
Case 2
S1 = SemanaInicial + 1 S2 = SemanaFinal
Case 3
S1 = SemanaInicial + 1 S2 = SemanaFinal - 1
Case 4
S1 = SemanaInicial S2 = SemanaFinal
Case 5
S1 = SemanaInicial + 1 S2 = SemanaFinal
Case 6
S1 = SemanaInicial S2 = SemanaFinal - 1
Case 7
S1 = SemanaInicial S2 = SemanaFinal
Case 8
S1 = SemanaInicial + 1 S2 = SemanaFinal - 1
Case 9
S1 = SemanaInicial S2 = SemanaFinal - 1
Case 10 S1 = SemanaInicial S2 = SemanaFinal
Case 11 S1 = SemanaInicial + 1 S2 = SemanaFinal - 1
Case 12 S1 = SemanaInicial S2 = SemanaFinal
Case Else S1 = SemanaInicial S2 = SemanaFinal
End Select
MsgBox(S1 & " al " & S2)
ListBox1.Items.Clear()
For V1 = S1 To S2
ListBox1.Items.Add("Semana Nº : " + CType(V1, String))
Next
End Sub

Veremos en modo Ejecucion F5:


Nuestro resultado Final. Espero que les sea de ayuda

Descargar el proyecto: Semana