Adicionar horas

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Veja nesta dica: adiciona à hora atual ,um numero de horas determinado. Caso este número seja negativo, ele subtrairá da hora atual

function AdicionaHora(TimeAdd: Integer) : String;
{Adiciona à hora atual um numero de horas determinado. Caso este número seja negativo, ele subtrairá da hora atual}
Var
Horas,Min,SomaHoras,SomaMin : Integer;
S, S1 : String;
begin
Horas := Strtoint(Copy(TimetoStr(Time),1,2))+ TimeAdd;
Min := Strtoint(Copy(TimetoStr(Time),4,2))+ TimeAdd ;
SomaHoras := SomaHoras+Horas;
SomaMin := SomaMin + Min;
If SomaMin > 59 Then
  begin
  if SomaMin mod 60 = 0 Then
  begin
  Somahoras := Somahoras+(Somamin div 60);
  Somamin := 0;
  end
  else
  begin
  SomaHoras := SomaHoras + (SomaMin div 60);
  SomaMin := SomaMin mod 60;
  end;
  end;
If Somamin = 0 Then
  begin
  S := '00';
  end
else
  begin
  S := InttoStr(Somamin);
  end;
If Length(InttoStr(SomaHoras)) = 1 Then
  begin
  S1 := Concat('0',InttoStr(Somahoras));
  end
else
  begin
  S1 := InttoStr(Somahoras);
  end;
Result := Concat(S1,':',S,':00');
end;
 
-->
 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?