none
Obtener Fechas Inicial y/o final en base solo al numero de semana RRS feed

  • Pregunta

  • Como puedo saber el día inicial y el final, es decir las fechas A PARTIR DEL NUMERO DE SEMANA

    Ejemplo (inverso) Si deseo obtener el numero de semana seria:  DatePart("ww", now()) = 45

    Pero si solo tuviese el No de Semana= 45 ¿Como deduzco programaticamente de solo ese valor

    las fechas del Lunes y el Domingo?


    Luis C


    jueves, 7 de noviembre de 2019 18:14

Todas las respuestas

  • Bueno Investigando encontre esta opcion, solo se necesita el No de semana y el año:

    Private Sub TestDateAdd()
        Dim weekStart As DateTime = GetWeekStartDate(45, 2019)
        Console.WriteLine(weekStart)
    End Sub
    
    
    Private Function GetWeekStartDate(weekNumber As Integer, year As Integer) As Date
        Dim startDate As New DateTime(year, 1, 1)
        Dim weekDate As DateTime = DateAdd(DateInterval.WeekOfYear, weekNumber - 1, startDate)
        Return DateAdd(DateInterval.Day, (-weekDate.DayOfWeek) + 1, weekDate)
    End Function

    Y tambien esta:

    Public Function FirstDateOfWeek(ByVal Year As Integer, ByVal Week As Integer, Optional FirstDayOfWeek As DayOfWeek = DayOfWeek.Monday) As Date
        Dim dt As Date = New Date(Year, 1, 1)
        If dt.DayOfWeek > 4 Then dt = dt.AddDays(7 - dt.DayOfWeek) Else dt = dt.AddDays(-dt.DayOfWeek)
        dt = dt.AddDays(FirstDayOfWeek)
        Return dt.AddDays(7 * (Week - 1))
    End Function

    en:

    https://stackoverflow.com/questions/20084890/how-to-get-starting-date-in-a-week-based-on-week-number-using-vb-net


    Luis C



    • Editado Luis Carlos H jueves, 7 de noviembre de 2019 19:18
    • Propuesto como respuesta Pablo Rubio jueves, 7 de noviembre de 2019 23:40
    jueves, 7 de noviembre de 2019 19:14