PEGAR TODOS DIA DA SEMANA APARTIR DE UMA DATA

FBGSYSTEMS 08/07/2012 22:22:04
#405712
Boa noite pessoal. Seguinte estou fazendo uma agenda no meu sistema. E gostaria de uma ajuda em alguma rotina para que apartir de uma data, pegue todos os dias da semana correspondente aquele dia.
Pensei em utilizar um WeekDay, ver o dia que retorna e ir voltando e ou indo pra frente, mas acho que seria muito trabalhoso.

Alguem ja fez algo assim ? Farei da seguinte maneira, colocarei uma coluna de um grid qualquer para cada dia da semana, entao nas linhas os horários.

Agradeço quaisquer ajudas
ROBIU 09/07/2012 09:19:23
#405720
A Função:
Function DiaDaSemana(Data As Date, DiaSem As Integer)
    Dim iDia As Integer
    iDia = Weekday(vsData)
    DiaDaSemana = iDia + DiaSem
End Function


Exemplo de uso: Listar os 7 dias da semana do dia 13/07/2012
 Dim i As Integer
    For i = 1 To 7 [ô]Dom=1 é o primeiro dia da semana
        MsgBox DiaDaSemana([Ô]13/07/2012[Ô], i)
    Next i
FBGSYSTEMS 09/07/2012 11:26:21
#405724
Caro amigo. Nao deu certo. Para o seu exemplo funcionou, mas tente fazer pra outra data qualquer que nao dará certo rss.
ROBIU 09/07/2012 14:27:04
#405732
Montei esta aqui. Em vez de pegar o dia, ela pega a data para não dá erro ao trocar o mês ou ano bixesto.
Function DiaDaSemana(Data As Date, DiaSem As Integer) As Date
    DiaDaSemana = DateAdd([Ô]D[Ô], DiaSem, (Data - Weekday(Data)))
End Function


Ex:
    Dim i As Integer
    For i = 1 To 7 [ô]Dom=1 é o primeiro dia da semana
        MsgBox DiaDaSemana(CDate([Ô]27/02/2012[Ô]), i)
    Next i
FBGSYSTEMS 09/07/2012 21:13:39
#405754
Pensei em um jeito de fazer. Valeu
Tópico encerrado , respostas não são mais permitidas
Voltar