Código Delphi
[-] ValorFecha:=FechaFin-FechaIni;
Dias:=Trunc(ValorFecha);
Horas:=Trunc(Frac(ValorFecha)*24);
Minutos:=Trunc((Frac(Frac(ValorFecha)*24))*60);
CalculaTiempo:=inttostr(Dias)+' Días, '+inttostr(Horas)+' Horas, '+inttostr(Minutos)+' Min.';
O la más fácil sería utilizar las funciones "MonthsBetween" y "DaysBetween"