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.003 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!!
