Fórum Somando Horas em uma Variável #152447

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:= IncHoras(Label1.Caption,MaskEdit1.Text);
end;

function TForm1.IncHoras(Acumulada, Adicionar: String): String;
var hAcumulado: Integer;
    mAcumulado: Integer;
    hAdicionar: Integer;
    mAdicionar: Integer;
    QtdMinutos: Integer;
    nHoras, nMinutos: Integer;
begin

  hAcumulado:= StrToInt(Copy(Acumulada,1,2));
  mAcumulado  := StrToInt(Copy(Acumulada,4,2));
  hAdicionar  := StrToInt(Copy(Adicionar,1,2));
  mAdicionar  := StrToInt(Copy(Adicionar,4,2));
  // Converter tudo para a mesma base
  QtdMinutos := ((hAcumulado + hAdicionar)*60)+mAcumulado+mAdicionar;
  nHoras      := Trunc(QtdMinutos/60);// Acha as horas acumuladas
  nMinutos:= QtdMinutos - (nHoras*60);
  Result:= StrZero(nHoras,2)+´:´+StrZero(nMinutos,2);
end;

function TForm1.StrZero(iNumero, iComp: Integer): String;
begin
  Result := StringOfChar(´0´,iComp-Length(IntToStr(iNumero)))+IntToStr(iNumero);
end;

  object Label1: TLabel
    Left = 240
    Top = 150
    Width = 27
    Height = 13
    Caption = ´00:00´
  end
  object Button1: TButton
    Left = 94
    Top = 78
    Width = 75
    Height = 25
    Caption = ´Button1´
    TabOrder = 0
    OnClick = Button1Click
  end
  object MaskEdit1: TMaskEdit
    Left = 248
    Top = 64
    Width = 121
    Height = 21
    EditMask = ´00:00;1;_´
    MaxLength = 5
    TabOrder = 1
    Text = ´  :  ´
  end