none
Sacar la fecha por semana. RRS feed

Todas las respuestas

  • Creo que como no te expliques mejor ...
    jueves, 29 de marzo de 2007 10:06
  • 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

     

    lunes, 16 de julio de 2007 21:27
  • 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

    miércoles, 25 de julio de 2007 10:35
  • 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........

    miércoles, 25 de julio de 2007 21:12
  • 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...

    viernes, 3 de agosto de 2007 14:26