Feriados

[emaild...@gmail.com]

Saudações a todos!

Alguém sabe como criar uma rotina que conte quantos dias úteis
existem entre duas datas? (excluindo-se os feriados nacionais e os
domingos)

Obrigado

Leandro Amorim

[Gustavo (Tectrilha)]

O código abaixo funciona para o caso dos domingos. No caso dos
feriados vc teria que ter um cadastro prévio com todos eles.

//////////////////////

function TForm1.QtdDiasUteis(DataInicial, DataFinal: TDate): integer;
var I: integer;
begin
Result := 0;
For I := trunc(DataInicial) to trunc(DataFinal) do
//DayOfWeek retorna o dia da semana onde 1 é domingo e 7 é sabado
if DayOfWeek(I) <> 1 then
Result := Result + 1;
end;

//////////////////////

Dê uma olhada na Unit DateUtils que existe no Delphi 7. Existe dezenas
de funções bem interessantes que pode te auxiliar.

Gustavo Gianordoli
Tectrilha Software