Soma de horas

Question

Estou precisando fazer uma somatoria de horas que inicia antes das 00:00 e terminara apos as 00:00, exemplo inicio 18:00 para as 21:30 retorna as 22:30 e terminara as 02:00, alguem poderia me ajudar com esse probleminha.

Obrigado

Micheus · Answer

[b:ca9199ecb0]felipeiw[/b:ca9199ecb0], esta informa��o vai para o banco de dados com um campo com a data?
Se for, combine a data e a hora de in�cio, bem como a data e hora de termino e depois fa�a a diferen�a entre eles (vc ter� dois TDateTime). Ex.:

DifHora1 := (DtTermino1 +HrTermino1) -(DtInicio1 +HrInicio1);
DifHora2 := (DtTermino2 +HrTermino2) -(DtInicio2 +HrInicio2);
SomaHora := DifHora1 +DifHora2;

O tipo TDateTime (que � na verdade um Double), representa a quantidade de dias decorridos desde 12/30/1899, ent�o, a subtra��o de um do outro vai resultar no n�mero de anos, meses, dias, horas, minutos... decorridos entre as mesmas.

Abra�os

Felipeiw · Answer

Obrigado Micheus, pela ajuda, porem outra duvida, no seu exemplo vc esta tratando os campos data e hora separados, com o campo data sendo um DATE e o campo hora sendo um TIME ?...

Micheus · Answer

[quote:cee7c37084=�felipeiw�]Obrigado Micheus, pela ajuda, porem outra duvida, no seu exemplo vc esta tratando os campos data e hora separados, com o campo data sendo um DATE e o campo hora sendo um TIME ?[/quote:cee7c37084]voce estar� fazendo esta opera��o direto em um SQL ou seria no c�digo mesmo?Se for no SQL, que banco de dados vc est� usando?Se for no c�digo, n�o h� problemas, e seria a mesma coisa, porque vc tem neste seu caso campos TDateField e TTimeField, onde vc pode realizar a opera��o citada usando a propriedade [i:cee7c37084]Value[/i:cee7c37084], tipo:TabPontoDtEntrada1.Value +TabPontoHrEntrada1.Value .......

Felipeiw · Answer

Estou utilizando Firebird e D7 com DBExpress. Como fa�o um select para trazer os registros de um determinado periodo levando em consideracao a data e a hora lancada, os campos datas estou utilizando timestamp e os campos horas time. Portando estou utilizando em campos separados, nao sei se � a melhor ideia tambem.

Obrigado

Micheus · Answer

Segue um exemplo de como poderia ser feito, levando em conta as informa��es que vc passou (ajuste ao nome de seus campos):

select (cast(N.DTENTRADA as date) +N.HRENTRADA1) as Entrada1,
(cast(N.DTENTRADA as date) +N.HRSAIDA1) as Saida1,
((cast(N.DTENTRADA as date) +N.HRSAIDA1) -(cast(N.DTENTRADA as date) +N.HRENTRADA1)) as Diferenca1
from Tabela

observe que � necess�rio fazer um CAST do campo TIMESTAMP para DATE e que o resultado da soma em Entrada1 e Saida1 ser� um TIMESTAMP (com a data e hora concatenados). J� a diferen�a, resultar� em um n�mero real, logo, o dataset deve retornar um [i:89230ef620]TFloatField[/i:89230ef620]. Este valor, se multiplicado por 24 (24horas) resultar� na diferen�a em horas (ex. 02:30hs, ser� representado por 2,5hs) podendo ser usado em opera��es matem�ticas normalmente.
J� para ser mostrado no formato hh:mm, se for necess�rio, h� duas possibilidades: usar os eventos [i:89230ef620]OnGetValue[/i:89230ef620] e [i:89230ef620]OnSetValue[/i:89230ef620] do field ou usar um campo calculado, do tipo TDateTime e atribuir este valor a ele.

Quanto a ser melhor o uso de timestamp, date ou time, acho que deve ser um op��o pessoal. Particularmente, quando necessito armazenar data e hora juntos eu uso o timestamp. Do contr�rio, uso os tipos conforme o caso - date e/ou time.

Abra�os

F�rum Soma de horas #364500