F�rum Fun��o para calcular dia �til no Delphi #385894

09/09/2010

Gostaria de saber se alguem possui uma fun��o e possa disponibilizar,�aonde informado uma data e a mesma retorne o pr�ximo dia �til levando em considera��o finais de semana e feriados.
<DIV>�</DIV>
<DIV>Desde ja agrade�o,</DIV>

Eremita

Curtir t�pico

+ 0

Responder

Posts

09/09/2010

Eriley Barbosa

Retorna o pr�ximo dia �til caso a data informada caia em um fim de semana:

Function ProximoDiaUtil (dData : TDateTime) : TDateTime;
begin
   if DayOfWeek(dData) = 7 then
      dData := dData + 2
   else if DayOfWeek(dData) = 1 then
      dData := dData + 1;
   ProximoDiaUtil := dData;
end;

N�o esque�a de declarar Date Utils no Uses de sua Unit. Quanto a feriados voc� tem que criar no seu sistema uma tabela de feriados m�veis e pegar a data passada como par�metro e ver se existe na tabela, se existir, soma mais um dia.

Responder

Gostei + 0

09/09/2010

Eriley Barbosa

DateUtils � junto.

Responder

Gostei + 0

09/09/2010

Eremita

Minha principal d�vida � quanto a estrutura para tratar os feriados e finais de semana. Imagina a possibilidade de uma data informada seja um feriado e que este caia numa sexta, ele ira para segunda, mas vamos supor que segunda tenhamos outro feriado. Imagina ainda 2 feriados seguidos. Estou apenas pensando nas possibilidade e n�o querendo dificultar as coisas. Espero que me entendam,

Responder

Gostei + 0

09/09/2010

Eriley Barbosa

Imagino que voc� deva fazer um Loop para a parte de feriados com uma variavel de controle Booleana, enquanto for true, continua fazendo o select e vendo se � feriado e somando + 1 a data, quando o select retornar vazio atribui falso e sai do la�o e grava a data na tabela.

Responder

Gostei + 0

09/09/2010

Emerson Nascimento

veja se a id�ia desta stored procedure pode te ajudar.

Responder

Gostei + 0

11/09/2010

Eremita

�timo, justamente o que preciso. Muito obrigado.

Responder

Gostei + 0