INTERVALO DE DATAS.

USUARIO.EXCLUIDOS 19/12/2006 08:47:11
#190779
Olá galera.
Por gentileza como faço para saber a data inicial e final de uma determinada semana? Por exemplo:

Qual a data que inicia e termina a semana 23

Agradeço a todos.
USUARIO.EXCLUIDOS 19/12/2006 09:08:22
#190788

Cara..é um negócio meio doido mas eu fiz isso uma vez..

Faça um Loop...do dia 1/1/07 até 31/12/07..e jogue num list, a data e o dia da semana
ex: 01/01/07 - Seg
02/01/07 - Ter ...

Depois faça outro loop neste list pegando se for Seg - joga data numa variável e na sequência vai pegar a sexta desta semana correto?, pega a data propriamente, e joga em outra varíavel..
Fechando na sexta, coloque um contador, para contar a semana..e jogue num bd os dados:

Nº da semana
Dia Inicial
Dia Final

Entendeu?
Tenta ae..qq coisa..manda post..q a gente da um jeito!
ALMARTI 19/12/2006 09:12:50
#190790
Se for so para o ano corrente,

Dia inicial
MsgBox Day((51 * 7)) - 5

Mês
MsgBox Month((51 * 7))
USUARIO.EXCLUIDOS 19/12/2006 09:21:36
#190798 Resposta escolhida
Cara, vc pode fazer assim:

MsgBox "Data inicial: " & DateAdd("D", 27 * 7, DateSerial(2006, 1, 1)) & vbCrLf & _
       "Data final:   " & DateAdd("D", (27 * 7) + 6, DateSerial(2006, 1, 1))


Pra entender melhor:

Data Inicial:
DtIni = DateAdd("D", [nr semana] * 7, DateSerial([ano], 1, 1))


Data Final:
DtFim = DateAdd("D", ([nr semana] * 7) + 6, DateSerial([ano], 1, 1))



Qualquer dúvida poste...flw
USUARIO.EXCLUIDOS 19/12/2006 09:49:15
#190810
Quero agradecer ajuda de todos.
Mas a q prevaleceu foi a ajuda do Matioli.
Matioli.... obrigado cara.
Tópico encerrado , respostas não são mais permitidas
Voltar