Diferencia abreviada entre dos fechas (TDatetime)

[rretamar]

Este código permite obtener en forma resumida la diferencia entre dos variables TDatetime:


//
// 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;

[luchifer]

La voy a probar y si funciona tiene muchas aplicaciones principalmente en proyectos como ser construcciones

gracias de antemano

[ea6zs]

Estaba buscando esta solución, pero ¿funcionará si se trata de dos campos? Es decir, imaginar un form con un ttable y tres campos, uno fecha inicial, fecha final y un campo calculado para la diferencia de ambos campos. Los tipos de los dos primeros serían DateTime, ¿de que tipo sería el segundo?
saludos cordiales