Date::Manip: diferencia en días entre fechas
Publicado: 2014-06-10 14:41 @654
He instalado una nueva versión del Date::Manip y me dejó de funcionar una función que tenía. No tira error pero no obtengo la diferencia en días que antes obtenía.
En todos los casos el entero que me devuelve como diferencia en días es CERO. ¿Podrían indicarme dónde estará el problema? ¡¡Gracias!!
Using perl Syntax Highlighting
- sub evaluar_rango {
- my $fecha_inicio =shift; #Formato: '12/05/2014'
- my $fecha_fin = shift;
- use Date::Manip;
- # Calculo de Fechas- DATE::MAP (3): modo 'business' exacto
- #---------------------------------------------------------------------
- Date_Init( "DateFormat=non-US", "TZ=EST5EDT");
- my $diferencia = DateCalc($fecha_inicio, $fecha_fin);
- # pasar a días
- my $dias_entre_fechas = sprintf("%d",Delta_Format($diferencia,1,"%dt"));
- return ($dias_entre_fechas);
- }
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
En todos los casos el entero que me devuelve como diferencia en días es CERO. ¿Podrían indicarme dónde estará el problema? ¡¡Gracias!!