Como saber as datas de finais de semana e feriado?

function TForm1.FimdeSemana(Data: TDateTime): Boolean;
begin
Result := false;
if (DayOfWeek(Data) = 1) then
Result := True;
if DayOfWeek(Data) = 7 then
Result := true
end;

onde domingo é 1 e sabado é 7 .....

Falou...
Lucas!

Bom dia,

Estou trabalhando em um relatório onde os vencimentos das duplicatas que cairem em sábado e domingo, devem ser mostrados na segunda.

Pergunta:
- Como incluir esta validação na instrução sql do relatório?

Se possível me retorna,

Obrigado,

gilsonlongo@terra.com.br
[quote:c26cf19b1e=´Lucas Alves Silva´]function TForm1.FimdeSemana(Data: TDateTime): Boolean;
begin
Result := false;
if (DayOfWeek(Data) = 1) then
Result := True;
if DayOfWeek(Data) = 7 then
Result := true
end;

onde domingo é 1 e sabado é 7 .....

Falou...
Lucas![/quote:c26cf19b1e]

vai depender se seu banco tem fucntion para isto.