[Resolvido] calculo dias úteis complicado

[flavioavilela 0]

galera, eu novamente com meu caminhão de dúvidas rsrs...

alguem sabe como calcular dias úteis entre duas datas? mas, tipo, cada região tem suas festividades, crensas particulares, logo, tem região que tem mais feriados que outras e por ai vai e também claro, descontando sábados e domingos... alguem sabe fazer isso??

[flavioavilela 0]

galera, consegui resolver meu problema, estudando em outros foruns, achei uns exemplos e fiz algums adaptações que funcionou beleza... está ai abaixo, o código...

function Dias_Uteis(DataI, DataF:TDate):Integer;
var contador, i, n :Integer; DataR : Tdate;
begin
   n := 0;
   if DataI > DataF then
	  begin
		 result  := 0;
		 exit;
	  end;

   Contador := 0;
   while (DataI <= DataF) do
   begin
	  if ((DayOfWeek(DataI) <> 1) and (DayOfWeek(DataI) <> 7)) then
		 Inc(Contador);

	  for i := 0 to Form1.ComboBox1.Items.Count-1 do
		 begin
			DataR := strtodate(Form1.ComboBox1.Items.Strings[i]);
			if DataR = int(DataI) then
			   n := n + 1;
		 end;

	  DataI := DataI + 1;
   end;
   result := Contador-n;
end;

porem, é importante ter um cadastro de feriados, onde você cadastra todos os feriados e depois, quando precisar, coloque os feriados em um combobox para que o contador de dias úteis possa descontar aqueles feriados que está lá informando...

obrigado a todos...