SEMANA E DATA

WIRCAO 11/07/2011 12:48:05
#378917
Boa tarde, estou desenvolvendo um sistema e não estou conseguindo o seguinte código:
O ano tem 52 semanas, quero que quando o usuário digite o número da semna, por exemplo:
1, 7, 20, o sistema traga a data inicial e final dessa semana.
Desde já agradeço.
EDERMIR 11/07/2011 13:17:23
#378919 Resposta escolhida
Se me lembro bem, a semana não começa no dia 1. A semana 1 TEM o dia 1.

Você terá que saber qual o ano para qual deseja consultar.

Se a sua semana começa no DOMINGO e termina no SÁBADO:
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        Wsemana = Text1.Text
        Wdias = (Wsemana - 1) * 7  [ô]Alterei esta linha de meu post original
        Wdianasemana = DateAdd([Ô]d[Ô], Wdias, CDate([Ô]01/01/[Ô] & Year(Date))) [ô]Estou assumindo este ano como padrão. Você deve perguntar o ano em questão.
        Wdia_da_semana = Weekday(Wdianasemana)
        Wprimeirodia = Wdianasemana - Wdia_da_semana + 1
        Text2.Text = Wprimeirodia
    End If
End Sub


Com algumas variações. Este ano temos 53 semanas com todos os dias. A última semana corresponde a primeira semana do ano seguinte.
WIRCAO 11/07/2011 14:37:34
#378929
Muito Obrifado Edermir !!!
Valeu mesmo, era bem o que queria, fiz apenas uns ajustes de acordo
com minha necessidade, ficou ótimo.
Tópico encerrado , respostas não são mais permitidas
Voltar