F�rum Tratar sabados e domingos #472783

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

Curtir t�pico

+ 0

Responder

Post mais votado

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

Marcos Saffran

Responder

Gostei + 1

Mais Posts

16/03/2014

Demetrius Pereira

muito obrigado deu certo, sou novo e ja estou gostando muito. Abra�o e muito obrigado.

Responder

Gostei + 0