Foros del web, para los que viven de bits

Mes                N° Semana           Dias          F. Inicia                 F. Termina

                    01                  6             01-Ene-2008              06-Ene-2008
                    02                  7             07-Ene-2008              13-Ene-2008
ENERO               03                  7             14-Ene-2008              20-Ene-2008
                    04                  7             21-Ene-2008              27-Ene-2008
                    05                  7             28-Ene-2008              03-Feb-2008
                    06                  7             04-Feb-2008              10-Feb-2008
FEBRERO             07                  7             11-Feb-2008              17-Feb-2008


Asi sucesivamente hasta llegar ha Diciembre...

 
Function Semana(vYear As Integer, NumSemana As Byte, FechaInicio As Date, FechaFin As Date) As Byte
Dim Inicio As Byte
Dim FirstWeek As Byte
Dim InitDate As Date
Inicio = Weekday(CDate("01/01/" & vYear), vbMonday)
If Inicio > 1 Then
    FirstWeek = 7 - (Inicio - 1)
End If
If NumSemana > 1 Then
    InitDate = DateSerial(vYear, 1, 1 + FirstWeek)
    FechaInicio = DateSerial(vYear, 1, Day(InitDate) + (7 * (NumSemana - 2)))
    FechaFin = DateSerial(Year(FechaInicio), Month(FechaInicio), Day(FechaInicio) + 6)
    FirstWeek = 7
    If Year(FechaFin) > vYear Then
        FechaFin = CDate("31/12/" & vYear)
        FirstWeek = DateDiff("d", FechaInicio, FechaFin) + 1
    End If
Else
    FechaInicio = CDate("01/01/" & vYear)
    FechaFin = DateSerial(vYear, 1, FirstWeek)
End If
Semana = FirstWeek
End Function

 
Dim DateInicio As Date
Dim DateFin As Date
Dim NumDias As Byte
NumDias = Semana(2008, 1, DateInicio, DateFin)
MsgBox "Número de Días: " & NumDias & vbCrLf & "Fecha de Inicio: " & DateInicio & vbCrLf & "Fecha Fin: " & DateFin
'El parámetro NumSemana puedes cambiarlo por el número de la semana de la que deseas obtener los Datos...