Calcular diferencia entre horas

[toni.vi]

Hola.
Quisiera saber el intervalo en segundos entre 2 horas, tomandolas del sistema, teniendo en cuenta el cambio de día.
A ver si existe algun sistema rapido que no sea el de ir restando las horas pasando a minutos , etc.
Saludos,
Toni

[__cadetill]

Pues es cuestion de restar los 2 DataTime que tengas

var
  D, D1 : TDateTime;
  Dif : TDateTime;
begin
  Dif := D1 - D;
end;

Espero que te sirva

[toni.vi]

hola.

El problema que tenia es que los segundos me los daba como
0,00004865xxxxx
Por lo que habia que multiplicar por 100000.

Tambien he encontrado esta solución.

DecodeTime(vTime2-vTime1, Hour, Min, Sec, MSec);

if Sec > xx then ......

Gracias

Toni