Fórum Horas Extras #198320

uma boa forma é armazenar tudo em minutos

por exemplo 09:24 - armazene (09 * 60) + 24 - 540 + 24 = 544

na hora de exibir crie um campo string calculado do e desconverta

var
hh, mm : word;

begin

hh := 0;
mm := horasacumuladas (em minutos)
while mm > 59
do begin
hh := hh + 1;
mm := mm - 60;
end;

horasaexibir := formatfloat(´00´, hh) + ´:´ + formatfloat(´00´, mm);

Se você quer somar horas e quando chegar à 24:00 horas, volta para 00:00, você pode usar o próprio delphi para fazer isso.
Se você já viu no delphi, as horas e dias (datas) para o delphi são apenas um número decimal, onde a parte inteira são os dias e a parrte decimal são as horas. Então, Faça um StrToTime(´00:00´) e some com a sua data StrToTime(´12:00´), e assim vai indo. Guarde isso num decimal.
E depois faça um FormatDateTime(´dd - hh:nn´, SuaHora). Assim , você obterá o acumlutivo em dias - horas:minutos. Mas caso passe mais de um mês, então o ideal seria fazer
IntToStr(Trunc(SuaHora)) + ´ - ´ + FormatDateTime(´hh:nn´,SuaHora).
Assim, você terá em dias (mesmo que passe dos 30,31) e então em horas:minutos.
valeu

muito obrigado vou testar e estou torcendo pra dar certo.

muito obrigado, mesmo.

Douglas-Altonia