Fórum Somar Horas... Como faço #173859

Faça o Seguinte:

Var
TotalHora: TTime;
begin
Tabela.First;
While Not Tabela.EoF Do
Begin
TotalHora:= TotalHora + Tabela.fieldbyname(´campo_hora´).AsTime;
Tabela.Next;
End;
End;

tente fazer o seguinte: O campo TTime só suporte no máximo 23h59m, caso seu acumulo de horas seja maior que isso vai dar errado, então:
Var
Hora,Min:Integer;
TotHora, TotMin:Integer;
Junta:String;
begin
Hora := 0; Min := 0;
TotHora := 0; TotMin := 0;
while not tabela.eof do
begin
// separa a hora e os minutos...
Hora := StrToInt(Copy(FormatDateTime(´hh:mm´,Tablehora.asTime),1,pos(´:´, FormatDateTime(´hh:mm´,Tablehora.asTime)-1);
Min := StrToInt(Copy(FormatDateTime(´hh:mm´,Tablehora.asTime),pos(´:´, FormatDateTime(´hh:mm´,Tablehora.asTime)+1),2);
// depois faça o seguinte:
TotHora := TotHora + Hora;
TotMin := TotMin + Min;
Table.next;
end;
TotHora := TotHora + (TotMin div 60);
TotMin := (TotMin mod 60);
Junta := IntToStr(TotHora) + ´:´ + IntToStr(TotMin);
end;