Como saber cuando son sabados,domingos o festivos en un rango de fechas

[ingabraham]

Como saber cuando son sabados,domingos o festivos en un rango de fechas.

ejemplo:

del 01/01/2010 al 30/03/2010

lo que necesito es tomar 34 dias habiles partiendo del 1 de enero sin meter sabados,domingos ni festivos
y q me diga hasta donde llega la fecha final.

espero me entiendan.

[duilioisola]

Supongo que podrías hacer un while whe incremente la fecha de a un día y verifique si es o no festivo o fin de semana

FechaNoEsFestivo(Fecha) tendrás que sacarlo de una lista según tu país, zona, etc.

Fecha := Now;
DiasASumar=34;
while (DiasASumar>0) do
begin
IncDay(Fecha,1);
if ((DayOfTheWeek(Fecha) > 1) and (DayOfTheWeek(Fecha) < 5)) then {1 lunes, 5 viernes, 6 sabado, 7 domingo}
begin
if (FechaNoEsFestivo(Fecha)) then
Dec(DiasASumar);
end;
end