Fecha y hora por separado como comparar

[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