Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Como saber cuando son sabados,domingos o festivos en un rango de fechas (https://www.clubdelphi.com/foros/showthread.php?t=66157)

ingabraham 04-02-2010 17:57:56

Como saber cuando son sabados,domingos o festivos en un rango de fechas
 
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 04-02-2010 19:04:27

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


La franja horaria es GMT +2. Ahora son las 09:49:57.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi