Foro - Perl en Español

Parece que todo está bien, tus fechas las tienes bien puestas. Lo que habría de revisar es si tienes el archivo de configuración en el mismo directorio donde se encuentra el módulo.

Saludos

Hola, kidd.

En este directorio es donde tengo el archivo de configuración:

Dentro de ese directorio se encuentran los archivos

Ya he realizado lo que me comentas y no quiere realizar las operaciones. ¿De qué otra forma podría hacerlo?

Lo que quiero realizar que a partir de una fecha sumándole 10 días se quiten los días festivos, sábados y domingos y al final imprima la fecha correcta.

kaeri

explorer escribiste:¡¡¡Descubierto el fallo!!!

Según he comprobado y como puedes ver, el fallo estaba en la forma de poner las fechas de las fiestas.

Y según yo lo había revisado, lo bueno es que encontraste el fallo.


Saludos

Hola, buen día. Reabro el tema, ya que como aquí se menciona, no me toma en cuenta los días festivos. Inclusive instalé el Date::Manip y ahora me marca los siguientes errores:



Busqué y hay un archivo llamado DateManip.cnf, pero éste no existe en mi servidor. No sé si lo debo crear ni dónde o en qué ruta guardarlo y cómo vincularlo con mi archivo Manip.pm y mis diasfestivos.txt.

¡¡ Espero me puedan apoyar !!

¿Qué tal, explorer? Gracias por contestar... ¡¡ Te agrego el código !!

use Date::Manip; # módulo de Perl
use DBI;


use Date::Calc qw(Today Delta_Days);
use Spreadsheet::WriteExcel;

my ($sec,$min,$hour,$mday,$mes,$anio,$wday,$yday,$isdst) = localtime(time);
$mes++;
$anio+=1900;

$dateIn ="$anio-$mes-$mday";
Date_Init( "Language=English", "DateFormat=non-US","EraseHolidays=0","PersonalCnfPath=/usr/lib64/perl5/vendor_perl/Eflow/date/","PersonalCnf=misDiasFestivos.cfg");

$fechain = DateCalc("$dateIn", "+ 1 business days");