• Publicidad

Diferencia de horas entre dos fechas

Así que programas sin strict y las expresiones regulares son otro modo de hablar. Aquí encontrarás respuestas de nivel avanzado, no recomendable para los débiles de corazón.

Diferencia de horas entre dos fechas

Notapor seafree » 2012-08-13 12:53 @578

Orientación para obtener la diferencia en horas entre fechas en Perl.

Me pueden apoyar la manera de obtener la diferencia en horas entre dos fechas, por ejemplo:

Fecha 1: 2012-08-08 11:11:00
Fecha 2: 2012-08-02 22:22:00

Al utilizar DateCalc me muestra el siguiente resultado:
-0:0:0:5:12:49:0

Me pueden apoyar interpretando el resultado, gracias.
seafree
Perlero Nuevo
Perlero Nuevo
 
Mensajes: 69
Registrado: 2012-08-10 11:26 @518

Publicidad

Re: Diferencia de horas entre 2 fechas

Notapor danimera » 2012-08-13 13:12 @591

Usa el módulo Date::Calc

http://search.cpan.org/~stbey/Date-Calc-6.3/lib/Date/Calc.pod

con las funciones deltas sacas la resta de dos fechas .

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. Delta_YMDHMS
  2.       ($D_y,$D_m,$D_d, $Dh,$Dm,$Ds) =
  3.       Delta_YMDHMS($year1,$month1,$day1, $hour1,$min1,$sec1,
  4.                    $year2,$month2,$day2, $hour2,$min2,$sec2);
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4
100% Telch - Perl Web Programming
Cali PerlMongers: http://cali.pm.org
Avatar de Usuario
danimera
Vive para Perl en Español
Vive para Perl en Español
 
Mensajes: 768
Registrado: 2005-06-23 19:02 @834
Ubicación: Colombia

Re: Diferencia de horas entre dos fechas

Notapor explorer » 2012-08-13 14:00 @625

Bienvenido a los foros de Perl en Español, seafree.

seafree escribiste:Al utilizar DateCalc me muestra el siguiente resultado:
-0:0:0:5:12:49:0

Me pueden apoyar interpretando el resultado, gracias.
La interpretación la tienes en la documentación del módulo (este es el foro de Avanzado).

Quiere decir que hay 5 días, 12 horas y 49 minutos de diferencia.

Hay otros hilos que comentan este problema. Usa el sistema de búsqueda.
JF^D Perl Programming Language
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 12779
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Re: Diferencia de horas entre dos fechas

Notapor seafree » 2012-08-14 12:29 @562

Hola, explorer. Gracias por tu apoyo.
seafree
Perlero Nuevo
Perlero Nuevo
 
Mensajes: 69
Registrado: 2012-08-10 11:26 @518

Re: Diferencia de horas entre dos fechas

Notapor explorer » 2012-08-14 14:48 @658

JF^D Perl Programming Language
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 12779
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Interpretación de diferencia entre fechas

Notapor seafree » 2012-08-15 13:04 @586

Al contar con las siguientes fechas:
$date1=ParseDate(2012-01-01 00:00:00)
$date2=ParseDate(2012-01-31 23:59:00)

Aplico la función DateCalc
DateCalc($date2,$date1)

Resultando: -0:0:4:2:23:59:0

¿Cómo se interpreta el resultado?

Gracias.
seafree
Perlero Nuevo
Perlero Nuevo
 
Mensajes: 69
Registrado: 2012-08-10 11:26 @518

Re: Diferencia de horas entre dos fechas

Notapor explorer » 2012-08-15 14:28 @644

Disculpas, pero leyendo la página de manual de Date::Calc no soy capaz de encontrar la explicación de la función o método DateCalc(). Y tampoco ParseDate().

¿No estarás usando en realidad el módulo Date::Manip?

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. #!/usr/bin/env perl
  2. use v5.14;
  3. use Date::Manip;
  4.  
  5. my $date1 = ParseDate('2012-01-01 00:00:00');
  6. my $date2 = ParseDate('2012-01-31 23:59:00');
  7.  
  8. say DateCalc($date2,$date1);    # +0:0:-4:2:23:59:0
  9.  
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4

La interpretación es : cuatro semanas, dos días, 23 horas y 59 minutos de diferencia.

Tienes el significado de los deltas al principio de Date::Manip::Delta.
JF^D Perl Programming Language
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 12779
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Re: Diferencia de horas entre dos fechas

Notapor seafree » 2012-08-17 15:54 @704

Gracias por tu atención y apoyo, Administrador. Cordiales saludos.
seafree
Perlero Nuevo
Perlero Nuevo
 
Mensajes: 69
Registrado: 2012-08-10 11:26 @518


Volver a Avanzado

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados