Fórum Somar e diminuir horas #564485

//Versão melhorada de uma encontrada na net.
Function calculatempo(data1 : TDateTime; data2 : TDateTime) : String; //Calcula tempo em horas e munutos, entre duas datas no formato dd/mm/aaaa hh:mm:ss
// Precisa da Unit DateUtils do Delphi

implementation

Function calculatempo(data1 : TDateTime; data2 : TDateTime) : String;
var valor, horas, minutos, segundos : Integer;

begin
          valor := (SecondsBetween(data1,data2));
          horas := valor div 3600;
          minutos := valor div 60 - horas * 60;
          segundos := (valor - (horas *3600 + minutos * 60))+1;
          Result := Format('%0.2d:%0.2d:%0.2d', [horas, minutos, segundos]);
end;