Adicionar horas

function AdicionaHora(TimeAdd: Integer) : String;
{Adiciona hora atual um numero de horas determinado. Caso este numero seje 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;
    

Autor : desconhecido

Voltar