Fórum como obter o Total de horas trabalhadas Semanalmente DELPHI Ajudem ! #523339

  
TypeHora = Array[1..3] of integer;

var
  iHoraPos,iMinutoPos,iSegundoPos:Integer;

function TRel_Cartao_Ponto.AcumulaPos(HoraTrabalhada: TTime) : TypeHora;
Begin
  iHoraPos:=iHoraPos+StrToInt(Copy(TimeToStr(HoraTrabalhada),1,2));
  iMinutoPos:=iMinutoPos+StrToInt(Copy(TimeToStr(HoraTrabalhada),4,2))
  iSegundoPos:=iSegundoPos+StrToInt(Copy(TimeToStr(HoraTrabalhada),7,2));
  If iSegundoPos >= 60 Then
  Begin
    iMinutoPos:=iMinutoPos+1;
    iSegundoPos:=0;
  end;
  If iMinutoPos >= 60 Then
  Begin
    iHoraPos:=iHoraPos+1;
    iMinutoPos:=0;
  end;
  AcumulaPos[1]:=iHoraPos;
  AcumulaPos[2]:=iMinutoPos;
  AcumulaPos[3]:=iSegundoPos;
End;

AcumulaPos(StrToTime(hTotal_Trab));

      Hora:=FormatFloat('00',iHoraPos)+':'+FormatFloat('00',iMinutoPos);