Eu tenho um determinado número de semana, e eu gostaria de saber qual dia a semana começa e qual dia ela termina.

Quem puder me ajudar eu agradeço...

  Função:

 

Function DiaDaSemana(Data As String) As String
    If IsDate(Data) Then
        Select Case Format(Data, "w")
        Case 1
            DiaDaSemana = "Domingo"
        Case 2
            DiaDaSemana = "Segunda-feira"
        Case 3
            DiaDaSemana = "Terça-feira"
        Case 4
            DiaDaSemana = "Quarta-feira"
        Case 5
            DiaDaSemana = "Quinta-feira"
        Case 6
            DiaDaSemana = "Sexta-feira"
        Case 7
            DiaDaSemana = "Sábado"
        End Select
    Else
        DiaDaSemana = "Data Inválida!"
    End If
    MsgBox DiaDaSemana
End Function

 

 

 

DiaDaSemana text1

 

té mais...

Caro GBoese segue uma rotinha que fiz agora, acho que é o que precisa :

Dim DataSemanaI As Date, DataSemanaF As Date

Private Sub Form_Load()
NroSemanas = 10    'Numero de Semanas....
Call SemanaInicioFim(NroSemanas)
Debug.Print Date, DataSemanaI, DataSemanaF
End Sub

Private Sub SemanaInicioFim(NroSemanas)
Dim Dat As Date

Dat = DateAdd("ww", NroSemanas, Date)

Select Case UCase(Format(Dat, "ddd"))
    Case "SEG": Dias = 0: DiaFim = 6
    Case "TER": Dias = -1: DiaFim = 5
    Case "QUA": Dias = -2: DiaFim = 4
    Case "QUI": Dias = -3: DiaFim = 3
    Case "SEX": Dias = -4: DiaFim = 2
    Case "SAB": Dias = -5: DiaFim = 1
    Case "DOM": Dias = -6: DiaFim = 0
End Select

DataSemanaI = DateAdd("d", Dias, Dat) 'Acha o dia da semana inicial
DataSemanaF = DateAdd("d", 6 + Dias, Dat) 'Acha o dia da semana Final

End Sub

Espere que sirva....mas qquer coisa me avise....

Não é isso que eu quero, mais eu ja consegui resolver.. Fiz uma rotina que faz isso pra mim.

O que eu precisava era o seguinte.. Seria passado o número da semana

Ex: Semana 40/2005

 

Ele tem que trazer:

A semana começa no Domingo dia 25/09/2005 e Termina no Sábado dia 01/10/2005

ArtSoft... é Exatamente isto que eu precisava.... Agradeço a informação. Fiz uma rotina que faz isso tbm, e ja coloca no banco de dados, pois ai puxo pelo Crystal e fica bem fácil

 

Obrigado a todos