[fedelphi]

hola mez, una vez tenia que acumular horas y empece a realizarlo con decodetime y demas yerbas, pero me lleve cada dolor de cabeza!!! para modificarlo, tratar y controlar esos datos era realmente terrible por lo que opte por hacerlo distinto, si solo quieres acumular las horas pon este procedimiento

Código Delphi [-]
procedure TFPlanillaGral.devuelve_hora_integer(hora: TTime; var hora_int,  minutos_int: integer);
var
  string_aux,hora_aux,minutos_aux:string;
begin
  string_aux:=timetostr(hora);
  hora_aux:=copy(string_aux,1,pos(':',string_aux)-1);
  delete(string_aux,1,3);
  minutos_aux:=copy(string_aux,1,pos(':',string_aux)-1);
  hora_int:=strtoint(hora_aux);
  minutos_int:=strtoint(minutos_aux);
end;

y lo llamas asi

Código Delphi [-]
devuelve_hora_integer(HORASEMPLEADAS,horas_entero,minutos_entero);
           Horas_acumuladas:=HorasxRubro+horas_entero;
           Minuto_acumulados:=Minutos_acumulados+minutos_entero;
           if Minutos_acumulados>=60 then
           begin
             Minutos_acumulados:=Minutos_acumulados-60;
             Horas_acumuladas:=Horas_acumuladas+1;
           end;

Espero te sirva y te ahorre muchos dolores de cabeza. Suerte
Fede
PD:Te queda tener en cuenta los segundos, que en mi caso no eran necesarios.