Foro - Perl en Español

Hola

Quisiera ayuda acerca de poder quitar días no hábiles entre un rango de fechas, por ejemplo entre 10-Julio-2006 al 18-Julio-2006, yo debo calcular cuantos dias hay de diferencia por default seria 8 días eso si me sale bien pero de 8 días tengo que quitar el sabado y domingo que se atraviesa entre esas fechas a la vez si tambien hubiera un día festivo tambien hay que quitarlo, entonces el total real debe de ser 6 días, ¿cómo podria realizarlo?

Gracias de antemano

¡Respondida!
¡Mas info!

(kaeri tiene muchos problemas con las fechas, ¿eh? )

Si, explorer, aquí me piden mucho la cuestión de fechas.

Ya había checado los temas que pusiste y ya he utilizado el de resta de fechas, pero lo que no sé es cómo utilizar el de quitar días si ahí lo que implica es sumarle días y aquí lo que tengo que hacer es que de un rango de fechas quitar las que sean días inhábiles, ¿¿me entendí??

Lo que quisiera saber es como calcular cuantos días inhábiles se atravesaron entre un rango de fechas y después teniendo el cálculo restarlo a una fecha y eso desplegarlo en número de días.

Pues la solución estaba entre toda la documentación de Date::Manip:

Código: Seleccionar todo

#!/usr/bin/perl -l

use Date::Manip;

Date_Init(
    "DateFormat=non-US",
    "EraseHolidays=1",
    "PersonalCnf=fiestas.txt"
);
$diferencia = DateCalc("10/07/2006", "18/07/2006", 2);
$dias = Delta_Format($diferencia,1,"%dt");
print $dias; # 5.0

Lo he probado con el siguiente fichero de fiestas:

Código: Seleccionar todo

*Holiday

13/7 = Día de la Comunidad
21/3 = Día Natalicio de Benito Jaurez
16/9 = Día de la Independencia
20/11 = Día de la Revolución Mexicana
third Sunday in Jun = Día del Padre

Explicación:
* Inicializamos Date::Manip con el formato de las fechas a usar (formato no americano de las fechas y que tenga encuenta a las fiestas indicadas en el fichero indicado).
* Hacemos la diferencia y nos devuelve un objeto delta (diferencia entre dos fechas) teniendo en cuenta el modo 'bussines' (2): nada de fiestas y fines de semana.
* La diferencia es pasada a días (%d), y sólo días (t), con un (1) decimal de redondeo.
* Impresión del resultado...

Gracias por tu aportación explorer

Estuve probando con otras fechas pero me sale mal el resultado

Código: Seleccionar todo

#!/usr/bin/perl -l

use Date::Manip;

Date_Init(
    "DateFormat=non-US",
    "EraseHolidays=1",
    "PersonalCnf=fiestas.txt"
);
$diferencia = DateCalc("05/07/2006", "27/07/2006", 2);
$dias = Delta_Format($diferencia,1,"%dd");
print $dias; # 2.0

Aqui me sale el resultado de 2y no es correcto o si??

Es posible que te esté sacando el número de semanas de diferencia que hay entre las fechas.
* Cambia %dd a %dt, para que sean siempre días
* Es posible que esté influyendo la versión del módulo. Haz un print $Date::Manip::VERSION; para saber la versión. Yo tengo la 5.44, parcheada por mí.

Gracias explorer creo que ya quedo

Hola

Estoy calculando el número de días quitando dias festivos y dias no hábiles
lo que he estado viendo es que si pongo el rango de 05/12/2006 a 09/01/2007 con el archivo de dias festivos siguiente:

*Holiday

20/11 = Dia 1
1/12 = Dia 2
12/12 = Dia 3
21/12 = Dia 4
22/12 = Dia 5
25/12 = Dia 6
26/12 = Dia 7
27/12 = Dia 8
28/12 = Dia 9
29/12 = Dia 10
2/1 = Dia 11
3/1 = Dia 12
4/1 = Dia 13
5/1 = Dia 14
1/1 = 1 de enero

Me calcula un total de 31 días, lo cual es incorrecto, pues en mi lista de dias inhábiles tengo que desde el 22 de diciembre al 5 de enero son días inhabiles los cuales no me toma en cuenta; viendo mi archivo de dias festivos se presentan el 12/12 y los siguientes del 21/12 al 05/1; estuve probando rangos de fechas y lo que veo es que si se juntan más de 2 días inhabiles sale mal el calculo de días. Ya realice la corrección del error que se comenta, pero de todas formas sale el mismo error.

Date::Manip es un poco pejiguero con el tema de las fechas. En concreto, todo el tema de los deltas (diferencia entre dos fechas) lo trata de forma distinta si en ese delta existe un componente de mes, que, curiosamente, es lo que te pasa a ti.

Leyendo la documentación de Date::Manip (sí, a veces hay que leerla ) en la parte de DateCalc, se comentan los distintos usos del parámetro $mode.

Si $mode=0, el cálculo se hace en días, con lo que te sale para tus fechas 35 días.
Si $mode=1, se hace un cálculo aprox. de años y meses, saliendo 1 mes y 4 días (de diciembre a enero y del día 5 al 9).
Si $mode=2, es cálculo 'bussines' (con fiestas y fines de semana): un mes y un día (un mes desde el 6 de diciembre al 6 de enero más un día para saltar el lúnes 8 de enero).
Si $mode=3, el cálculo es 'bussines' exacto: 12 días.