Fórum Calculo com Horas - Urgente #177370

No exemplo que eu tenho, a tabela guarda todas as vezes que o funcionário trabalhou em uma determinada Ordem de Serviço e faz a soma. Neste caso a tabela OS e a master source do da tabela Trabalhos.

A função Strzero ajusta a string para o tamanho desejado com zeros a esquerda. Eu já passei esta função em perguntas anteriores.

procedure TfControle.TotalizaHoras;
var Hour, Min, Sec, MSec :word; totH,totM: Integer;
begin
totH:=0; totM:=0;
fCTrabalhos.first;
while not fConsulta.Trabalhos.eof do begin
if (Trabalhos[´fim´]<>null) and (fConsulta.Trabalhos[´inicio´]<>null) then begin
DecodeTime(Trabalhos[´fim´],Hour,Min,Sec,Msec);
totH:=totH+Hour;
totM:=totM+Min;
DecodeTime(Trabalhos[´inicio´],Hour,Min,Sec,Msec);
totH:=totH-Hour;
totM:=totM-Min;
end;
Trabalhos.next;
end;
while totM>=60 do begin
inc(totH);
totM:=totM-60;
end;
while totM<0 do begin
dec(totH);
totM:=totM+60;
end;
os.edit;
os[´TotalHoras´]:=IntToStr(totH)+´:´+Strzero(totM,2);
os.post;
end;

Cordialmente

Marconi