Início
![[Resolvido]Somar Horas em Form! Empty](https://2img.net/i/empty.gif)
APJesus 8/8/2013, 04:45Boa noite galeras, estou precisando mais uma vez da ajuda de todos com a famigerada ações com horas e datas (Cálculos), vamos lá:
No meu Form tenho dois campos referente a data e dois campos referente a horas. (Preciso do form deste jeito, campos data e hora individuais)
campo: DATA_PROGRAMADA (Formato Data Abreviada, HORA_PROGRAMADA(Formato Hora Abreviada)
campo: DATA_ENTREQUIP (Formato Data Abreviada, HORA_ENTREQUIP(Formato Hora Abreviada)
em um caixa de texto não acoplado(DIF_DIAS) vejo a diferença de horas entre as datas utilizando:
=DifData("h";[DATA_PROGRAMADA];[DATA_ENTREQUIP]),Exemplo:
DATA_PROGRAMADA= 17/07/2013 e DATA_ENTREQUIP=19/07/2013, tenho o retorno do resultado de 48. (Onde seria 48 horas de diferença), até aqui ok. Agora vamos para as horas.
em um caixa de texto não acoplado(TTAtraso) vejo a diferença de horas entre as horas utilizando uma função do mestre Avelino.que é:
Public Function fncIntervalo(HORA_PROGRAMADA As Date, HORA_ENTREQUIP As Date) As Date
fncIntervalo = CDate(IIf(HORA_ENTREQUIP < HORA_PROGRAMADA, HORA_ENTREQUIP + 1, HORA_ENTREQUIP) - HORA_PROGRAMADA)
End Function
Me.TTAtraso = CDate((1 + HORA_ENTREQUIP) - HORA_PROGRAMADA)
Exemplo:
HORA_PROGRAMADA= 09:00 e HORA_ENTREQUIP=10:10, tenho o retorno do resultado de 01:10
Como não existe muita facilidade de somar horas que ultrapassem 24horas, gostaria de somar o resultado das caixas não acopladas DIF_DIAS e TTAtraso. onde não consigo efetuar.
Lembrando que a caixa DIF_DIAS (DifData) formato Número (Pois se formatar para data/hora resulta 00:00:00) e Caixa TTAtraso (Função) Formato (hora Abreviada).
Já tentei o exemplo do mestre Avelino mas, nada! Não funfou. Srá que alguém tem uma luz aí.
Obs: tenho que trabalhar com os campos Data e hora individuais pois são preenchidos com horas sazonais e em momentos diferente.
No meu Form tenho dois campos referente a data e dois campos referente a horas. (Preciso do form deste jeito, campos data e hora individuais)
campo: DATA_PROGRAMADA (Formato Data Abreviada, HORA_PROGRAMADA(Formato Hora Abreviada)
campo: DATA_ENTREQUIP (Formato Data Abreviada, HORA_ENTREQUIP(Formato Hora Abreviada)
em um caixa de texto não acoplado(DIF_DIAS) vejo a diferença de horas entre as datas utilizando:
=DifData("h";[DATA_PROGRAMADA];[DATA_ENTREQUIP]),Exemplo:
DATA_PROGRAMADA= 17/07/2013 e DATA_ENTREQUIP=19/07/2013, tenho o retorno do resultado de 48. (Onde seria 48 horas de diferença), até aqui ok. Agora vamos para as horas.
em um caixa de texto não acoplado(TTAtraso) vejo a diferença de horas entre as horas utilizando uma função do mestre Avelino.que é:
Public Function fncIntervalo(HORA_PROGRAMADA As Date, HORA_ENTREQUIP As Date) As Date
fncIntervalo = CDate(IIf(HORA_ENTREQUIP < HORA_PROGRAMADA, HORA_ENTREQUIP + 1, HORA_ENTREQUIP) - HORA_PROGRAMADA)
End Function
Me.TTAtraso = CDate((1 + HORA_ENTREQUIP) - HORA_PROGRAMADA)
Exemplo:
HORA_PROGRAMADA= 09:00 e HORA_ENTREQUIP=10:10, tenho o retorno do resultado de 01:10
Como não existe muita facilidade de somar horas que ultrapassem 24horas, gostaria de somar o resultado das caixas não acopladas DIF_DIAS e TTAtraso. onde não consigo efetuar.
Lembrando que a caixa DIF_DIAS (DifData) formato Número (Pois se formatar para data/hora resulta 00:00:00) e Caixa TTAtraso (Função) Formato (hora Abreviada).
Já tentei o exemplo do mestre Avelino mas, nada! Não funfou. Srá que alguém tem uma luz aí.
Obs: tenho que trabalhar com os campos Data e hora individuais pois são preenchidos com horas sazonais e em momentos diferente.
