Foros Club Delphi - Diferencia abreviada entre dos fechas (TDatetime)

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Trucos (https://www.clubdelphi.com/foros/forumdisplay.php?f=52)

- - Diferencia abreviada entre dos fechas (TDatetime) (https://www.clubdelphi.com/foros/showthread.php?t=80876)

Diferencia abreviada entre dos fechas (TDatetime)

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;

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

gracias de antemano

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