Este código permite obtener en forma resumida la diferencia entre dos variables TDatetime:
Código:
//
// Diferencia entre dos variables TDateTime
// Formato de salida: [n] a [n] m [n] d hh:dd:ss
//
// Ejemplo: 5a 4m 6d 17:09:33
//
Function Diferencia(Fecha1,Fecha2: TDateTime): String;
Var
Dia,Mes,Anno: Word;
Resultado: String;
DT_Diferencia: TDateTime;
Begin
DT_Diferencia:=Fecha1-Fecha2;
DateDiff(DT_Diferencia,StrToDate('30/12/1899'),Dia,Mes,Anno);
Resultado:=FormatDateTime('hh:mm:ss',Dt_Diferencia);
If Dia > 0 Then Resultado:=IntToStr(Dia) +'d ' +Resultado;
If Mes > 0 Then Resultado:=IntToStr(Mes) +'m ' +Resultado;
If Anno > 0 Then Resultado:=IntToStr(Anno )+'a ' +Resultado; // (!)
Result:=Resultado;
End;