Trabalhar com horas

Delphi

03/03/2005

Porfavor, preciso utilizar Horas no sistema, e estou enfrentando um probleminha , sendo :

- Defini na base o campo Horas tipo T, mas qdo eu lanço a hora total de trabalho no dia , nao consigo jogar como 24:00. So aceita 23:59:99 ... isso no final , me da uma diferencao grande em minutos.
Ex : tenho 25 dias no mes de trabalho, * 24 horas = 600 horas
agora se 25 dias * 23.59 = 589 horas.

Como eu faço pra resolver isso ?

Obr pela ajuda

Marcel


Scandolara

Scandolara

Curtidas 0

Respostas

Rômulo Barros

Rômulo Barros

03/03/2005

Basta vc guardar no banco de dados o total de minutos. Para isso, o seu campo seria do tipo Integer e não TTime.


GOSTEI 0
Scandolara

Scandolara

03/03/2005

amigo,


o problema é q o sistema ja eta roandando com tipo TTime

e como eu posso resolver agora ?


GOSTEI 0
Rômulo Barros

Rômulo Barros

03/03/2005

Então, o jeito será arredondar:

procedure TForm1.Button1Click(Sender: TObject);
begin
   ShowMessage(FloatToStr(25 * Round(23.59))); // =600
end;

end.


procedure TForm1.Button1Click(Sender: TObject);
begin
   ShowMessage(FloatToStr(25 * 23.59)); // =589
end;

end.


:wink: :wink: :wink:


GOSTEI 0
POSTAR