[SOLUCIONADO] Obtener fecha dependiendo de numero de semana y año

[jhodmar]

Hola... buen día...
quisiera que me ayudaran con mi siguiente problema

yo tengo un numero de semana y tengo un año especifico
y debo encontrar

Fecha del primer día de esa semana (Lunes)
Fecha del último día de esa semana (Domingo)

entendiendo que el lunes sería el primer día y el domingo seria el ultimo día de esa semana
ejemplo:
La semana 1 del 2013

fecha primer día = 31/12/2012
fecha Ultimo día = 06/01/2013

¿COMO PUEDO ENCONTRAR ESAS DOS FECHAS?

GRACIAS DE ANTEMANO...

[jhodmar]

Bueno solo con la finalidad de compartir yo mismo me respondo...

he tomado como base lo que me detallan en este enlace http://jldexcelsp.blogspot.com/2008/...la-semana.html

y lo he adaptado a mi necesidad en .net de esta forma...

un evento en un boton

Código:

Private Sub button1_Click(sender As System.Object, e As System.EventArgs) Handles button1.Click
        Me.label3.Text = Me.Convertir_Semanas_a_Fechas(1, CInt(Me.textBox1.Text), CInt(Me.textBox2.Text))
        Me.label5.Text = Me.Convertir_Semanas_a_Fechas(2, CInt(Me.textBox1.Text), CInt(Me.textBox2.Text))
    End Sub

llamada a la función con parametros requeridos, que me devuelve el valor solicitado

Código:

Private Function Convertir_Semanas_a_Fechas(ByVal OpcionIO As Integer, ByVal n_Ano As Integer, _
                                                ByVal n_Semana As Integer) As String
        ''para 1 devuelve el primer dia de la semana  LUNES
        ''para 2 devuelve el último día de la semana DOMINGO
        Dim FechaReturn As String
        ''formamos la fecha del primer dia del año osea el primero de enero
        Dim FechaBase As String = "01/01/" & n_Ano
        If OpcionIO = 1 Then
            FechaReturn = DateAdd(DateInterval.Day, (n_Semana * 7) + _
                                  (1 >= DatePart(DateInterval.Weekday, CDate(FechaBase)) * 7) + 1 - _
                                  DatePart(DateInterval.Weekday, CDate(FechaBase)) - 6, CDate(FechaBase))
        ElseIf OpcionIO = 2 Then
            FechaReturn = DateAdd(DateInterval.Day, (n_Semana * 7) + _
                                  (1 >= DatePart(DateInterval.Weekday, CDate(FechaBase)) * 7) + 1 - _
                                  DatePart(DateInterval.Weekday, CDate(FechaBase)), CDate(FechaBase))
        End If
        Return FechaReturn
    End Function

Espero que a alguien pueda Servirle ....