[ContraVeneno]

Código Delphi [-]
Function CalculaTiempo(FechaIni: TDateTime; FechaFin: TDatetime): String;
var
 Dias, {Meses,} Horas, Minutos{, Segundos}: integer;
 ValorFecha: real;
begin
  ValorFecha:=FechaFin-FechaIni;
  Dias:=Trunc(ValorFecha);
  //Meses:=Trunc((ValorFecha)/30.4);
  Horas:=Trunc(Frac(ValorFecha)*24);
  Minutos:=Trunc((Frac(Frac(ValorFecha)*24))*60);
  //Segundos:=Trunc((Frac((Frac(Frac(ValorFecha)*24))*60))*60);
  CalculaTiempo:=inttostr(Dias)+' Días, '+inttostr(Horas)+' Horas, '+inttostr(Minutos)+' Min.';
end;

Vaya, que cuando uno anda de buen humor...