Buscar por:

Calculo de Quantidade de Horas.

Código

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