Buscar por:

Adicionando horas no delphi

Código

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;