Sacar la fecha por semana.

Question

Como puedo hacer si tengo la semanas y con el año como puedo saber la fecha que me debe de traer por semana.

Saludos!!

Answer 1

Creo que como no te expliques mejor ...

Answer 2

Creo que lo que quiso decir es:

 

Como puedo obtener la fecha o rango de fechas partiendo desde el numero de Semana en el Año.

 

Ejemplo:

 

Poner Numero de semana: 29

 

Rango de fechas del 16 al 22 de julio,

16/07/07

17/07/07

18/07/07

19/07/07

20/07/07

21/07/07

22/07/07

 

 

Saludos

 

Answer 3

Espero te sirva esta idea o puedes desarrollar otra a partir de esta

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim firstd As Date = "#1/1/" & anyo.Text & "#"

Dim x As Integer

x = Weekday(firstd, FirstDayOfWeek.Monday)

While x <> 1

firstd = DateAdd(DateInterval.Day, 1, firstd)

x = Weekday(firstd, FirstDayOfWeek.Monday)

End While

dia1.Text = DateAdd(DateInterval.Day, (semana.Text * 7) - 7, firstd)

dia2.Text = DateAdd(DateInterval.Day, (semana.Text * 7) - 6, firstd)

dia3.Text = DateAdd(DateInterval.Day, (semana.Text * 7) - 5, firstd)

dia4.Text = DateAdd(DateInterval.Day, (semana.Text * 7) - 4, firstd)

dia5.Text = DateAdd(DateInterval.Day, (semana.Text * 7) - 3, firstd)

dia6.Text = DateAdd(DateInterval.Day, (semana.Text * 7) - 2, firstd)

dia7.Text = DateAdd(DateInterval.Day, (semana.Text * 7) - 1, firstd)

End Sub

Answer 4

Hola Ramon,

 

Pues ya hice la prueba y creo que pues no me funciono muy bien que digamos porque en la primera asignacion de X me pone el valor de 1 y esto es porque en la duncion tu dices que empiece a contar apartir del Lunes como primer dia de la semana y obvio es 1 ya no pasa al ciclo o bucle.

 

Agradesco tu tiempo, ahora estoy tratando de entender como funciona bien, ya tengo otros codigos nadamas estoy tratando de unirlos para sacar uno lo mas estructurado y encuanto la tenga lo pondre aqui.

 

Saludos desde Mexico........

Answer 5

Hey que hay, la siguiente esta geneada para cuando te dan semana 29  y el dia (1 al 7 el dia 1=Domingo y el 7= sabado) y apartir de esto se encuentra la fecha, esto es lo que tengo espero te pueda ayudar.

 

    Dim SEMANA As Integer
    Dim DIA As Integer
    Dim DIAS As Integer
    Dim fecha As Date
    Dim contar As Integer
    Dim AN As String
    SEMANA = NUM
    DIA = NUM2
    contar = 0
    AN = DatePart("yyyy", Date)
    fecha = "01/01/" & AN
    No_dia = Weekday(fecha)
    contar = No_dia - 1
        If DIA > 7 Then DIA = 7 Else
        DIAS = (SEMANA - 1) * 7 + DIA - 1
        Do While contar < DIAS
            fecha = (fecha) + 1
            contar = contar + 1
        Loop
    SEM_FECHA = fecha

 

Si la mejoras o te sirve espero la podas publicar...