Fecha y hora por separado como comparar

[zugazua2001]

Hola amigos del foro, tengo dos campos por separado uno es la hora y el otro es la fecha de la fichada de un empleado.

Existe algun modo de concatenar obtener la diferencia en horas de dos fichadas de un empleado de manera rapida.

Ejm:
fichada 1: hora: 05:05 fecha: 01/03/2006
fichada 2: hora: 12:06 fecha: 02/03/2006

Cant Horas: 31 horas 1 minuto.

Gracias por todo nuevamente.
Saludos

[[Lepe]]

¿por código delphi o SQL?

[zugazua2001]

Yo decia por codigo delphi.
Si podes orientame tambien con SQL.

Gracias por tu ayuda.

Empezado por Lepe

¿por código delphi o SQL?

[luisgutierrezb]

suponiendo que son variables TDateTime, en delphi seria

Código Delphi [-]
var 
  diferenciaDias:Integer;
  diferenciaHoras:TDateTime;
begin
  diferenciaDias := Trunc(fichada2) - Trunc(fichada1);
  diferenciaHoras := Frac(fichada2) - frac(fichada1);

  //para mostrar:
  ShowMessage('diferencia en dias: ' + IntToStr(diferenciadias));
  ShowMessage('diferencia en horas: ' + FormatDateTime('hh:nn:ss', diferenciahoras);
end;

Empezado por zugazua2001

Hola amigos del foro, tengo dos campos por separado uno es la hora y el otro es la fecha de la fichada de un empleado.

Existe algun modo de concatenar obtener la diferencia en horas de dos fichadas de un empleado de manera rapida.

Ejm:
fichada 1: hora: 05:05 fecha: 01/03/2006
fichada 2: hora: 12:06 fecha: 02/03/2006

Cant Horas: 31 horas 1 minuto.

Gracias por todo nuevamente.
Saludos

[[Lepe]]

Se me olvidó preguntar para qué base de datos (paradox, firebrid etc.). Para Firebird tienes este hilo aunque da los minutos, tendrás que convertirlo.


por código delphi tienes varias opciones:
- Si lo tienes guardado como texto, intenta con TablaNombreCampo.AsDate, AsTime
Otra opción es concatenando la fecha y hora (como texto) y pasarsela a StrToDatetime
- Si no, usa EncodeDatetime, EncodeDate, RecodeTime, etc de la unidad DateUtils

Tendrás que hacerlo a mano, hoy no estoy muy inspirado, solo se me ocurre esto:

Código Delphi [-]
  procedure Tform1.btn1Click(Sender: TObject);
  var h,m:Word;
      s:string;
  begin
  h := HoursBetween(Now,Now-5);
  m := MinutesBetween(Now  ,Now-5) - (h*60);// restamos las horas que han pasado

 ShowMessage(IntToStr(h)+':'+IntToStr(m));
end;

Saludos

[zugazua2001]

Como en tantas otras oportunidades me han dado una mano.
Muchisimas gracias