Horas Extras
Eae...
Bem gente [b]EU NÃO SEI CALCULAR AS HORAS EXTRAS NO DELPHI :!: [/b]
se alguma boa alma estiver lendo isto, por favor, que possam mandar para mim algum exemplo de como se faz isso. Quando as horas cheram as 24:00, na soma, volta tudo a zero (00:00). Ja até me mandaram uma função que acumula horas mas eu não sei usar...
Por favor me ajudem!
Obrigado.
Douglas-Altônia-PR.
Bem gente [b]EU NÃO SEI CALCULAR AS HORAS EXTRAS NO DELPHI :!: [/b]
se alguma boa alma estiver lendo isto, por favor, que possam mandar para mim algum exemplo de como se faz isso. Quando as horas cheram as 24:00, na soma, volta tudo a zero (00:00). Ja até me mandaram uma função que acumula horas mas eu não sei usar...
Por favor me ajudem!
Obrigado.
Douglas-Altônia-PR.
Douglasaltonia
Curtidas 0
Respostas
Luineumann
02/12/2003
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);
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);
GOSTEI 0
Rafael Heise
02/12/2003
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
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
GOSTEI 0
Douglasaltonia
02/12/2003
muito obrigado vou testar e estou torcendo pra dar certo.
muito obrigado, mesmo.
Douglas-Altonia
muito obrigado, mesmo.
Douglas-Altonia
GOSTEI 0