Tratar sabados e domingos

Delphi

12/03/2014

eu utilizo a função incDay para somar dias de agendamento de uma consulta clinica, gostaria de saber oque faço para quando eu somar os dias de repetições no incDay ele automaticamente soltasse sábado e domingo.

for i := 1 to MaisDias do
begin
if i <> 1 then DiaProx := IncDay(DiaProx, 1);

no meu caso seria assim, mais ele nao leva em consideração o sabado e domingo e marca nesses dias, pois tenho que gerar 10 consultas de uma vez, e quando jogo as 10 repetiçoes ele lança no domingo pois eu estou so somando e nao verificando os dias.

Desde já agradeço
Demetrius Pereira

Demetrius Pereira

Curtidas 0

Melhor post

Marcos Saffran

Marcos Saffran

13/03/2014

Bom dia Demetrius,

você pode usar a função DayOfTheWeek, da unit DateUtils, que retorna os seguintes valores inteiros:
1 - Segunda
2 - Terça
3 - Quarta
4 - Quinta
5 - Sexta
6 - Sábado
7 - Domingo

for i := 1 to MaisDias do
begin
if i <> 1 then DiaProx := IncDay(DiaProx, 1);
if DayOfTheWeek(DiaProx) = 6 then // verifica se é sábado
DiaProx := IncDay(DiaProx, 2) // se for acrescenta 2 dias
else
if DayOfTheWeek(DiaProx) = 7 then // verifica se é domingo
DiaProx := IncDay(DiaProx, 1); // se for acrescenta 1 dia
GOSTEI 1

Mais Respostas

Demetrius Pereira

Demetrius Pereira

12/03/2014

muito obrigado deu certo, sou novo e ja estou gostando muito. Abraço e muito obrigado.
GOSTEI 0
POSTAR