Ver Mensaje Individual
  #2  
Antiguo 04-02-2010
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.735
Reputación: 20
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
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.
Código Delphi [-]
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
Responder Con Cita