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 ....
