Buscar por:

Somar duas variaveis ttime e ter um resultado maior que 23:59:59

Código

Function TModulo.SomaHoras(Tempo1, Tempo2: TTime): String;

var

SomaHora, SomaMinuto, Hora1, Minuto1, Segundo1, MSegundo1, Hora2, Minuto2, Segundo2,MSegundo2: Word;

begin

// Somar Duas Variaveis TTime e ter um resultado maior que 23:59:59

SomaMinuto := 0;

SomaHora := 0;

DecodeTime(Tempo1,Hora1,Minuto1,Segundo1,MSegundo1);

DecodeTime(Tempo2,Hora2,Minuto2,Segundo2,MSegundo2);

Segundo1 := Segundo1 + Segundo2;

Minuto1 := Minuto1 + Minuto2;

Hora1 := Hora1 + Hora2;

if Segundo1 >= 60 then

 begin

  SomaMinuto := 1;

  Segundo1 := Segundo1 - 60;

 end;

Minuto1 := Minuto1 + SomaMinuto;

if Minuto1 >= 60 then

 begin

  SomaHora := 1;

  Minuto1 := Minuto1 - 60;

 end;

Hora1 := Hora1 + SomaHora;

Result := IntToStr(Hora1)+':'+IntToStr(Minuto1)+':'+IntToStr(Segundo1);

end;