[Resolvido]Converter Data e Hora em consultas

Prezados Amigos, alguém poderia me ajudar ?
Tenho uma consulta na qual foi criado um campo onde este tem como resultado a diferença entre duas datas
Exemplo: Data Final - Data inicial =D(D é o valor mostrado corresponde aos dias)
Em outro campo eu preciso multiplicar esse valor por 8:00 ( horas trabalhadas), porem o resultado é apenas um numero inteiro
Ex: D x 8:00 = 56 e não retorna 56:00 , qual seria a forma correta ?

Em outro exemplo tenho a subtração entre campos com horas, porém um valor na fórmula é constante
Ex: Término às - Inicio às = Tempo Gasto (O resultado volta um valor quebrado para conversão)
Deste valor após convertido é subtraído de uma constante de 17:00, porém da erro

Poderiam me dar uma dica, estou a um tempo sem utilizar essas ferramentas
Desde já Obrigado pela atenção

Ola seja bem vindo ao forum;

No primeiro calculo, use a função interna DateDiff para calcular os dias em inteiros.

15-02-2016 a 19-02-2016 = 4

Código:

Dias: Int((DateDiff("d";[Data Inicial];[Data Final])))

No segundo calculo, use esse campo dos dias e calcule as horas desta forma;

32 horas formatadas = 32:00

Código:

Horas: Format(-(-Int(CInt([Dias]*8)));"0") & Format(CInt([Dias]*8)/24;"\:nn")

Valeu mesmo, deu certo , muito Obrigado.

E quanto ao outro exemplo , teria alguma dica ?

Grato

Ola;

Na segunda duvida;

Código:

DifHoras: CDate(Nz([Término às];0)-Nz([Inicio às];0))

Com esta fómula você obtem;

Termino = 15:00
Inicio = 09:00

15:00 - 09:00 = 06:00

Se o resultado é 6 horas de tempo gasto, não poderá aplicar a subtração de 17 horas.

Neste caso, como pretende obter o resultado pretendido ?

Ou se preferir formatar no final;

Código:

Result: Format([Término às]-[Inicio às];"h"" hora(s) e ""nn"" minuto(s)""")

Valew..Amigo Obrigado

Obrigado pelo retorno o forum agradece.

Amigo surgiu mais uma Duvida...obtive sucesso conforme sua orientação, porém agora eu
tenho uma consulta baseada nesses dados que me gera vários registros das horas acima de 24h
Eu transferi para uma listbox em um formalário, porém não consegui fazer a soma de todos os campos
referentes em destaque na listbox, teria uma dica para me ajudar como eu faço a soma de todos esses campos ,
ou se possível um campo único com o total de todos os registros da consulta ?

Grato

Quer somar os valores de uma coluna da listbox, numa caixa de texto ?

É numerico ou está formatado como hora ?

Ela é o resultado da primeira questão...

Está formatando o campo em inteiro e depois concatena os dois campos horas e minutos

O mesmo 56:00 que vc havia mostrado como conseguir, será somado a mais um registro de 48:00 com a mesma fórmula

No formulário tenho vários registros e precisavc colocar o total numa textbox

Grato

Pode tentar desta forma;

Por exemplo, no evento ao pressionar de um botão (só para testar);

Código:

Private Sub SeuBotão_Click()
'By JPaulo ® Maximo Access
Dim varTotal As Date
Dim varLinha As Integer
    For varLinha = 1 To (Me.SuaListBox.ListCount - 1)
    varTotal = varTotal + CDate(Me.SuaListBox.Column(2, varLinha))
    Next
Me.SuaCaixaTexto = varTotal
End Sub

Para testar terá de mudar para os nomes corretos da sua Caixa de texto e sua Lista.

Atenção que:
Me.SuaListBox.Column(2, refere-se à 3 coluna da sua lista, sendo que começa sempre pela coluna zero (0).

Amigo JPaulo

Ele faz a conta perfeitamente ,porém só até 24hs

Acima ele não reconhece

Desculpa abusar da sua boa vontade!

Grato

Ola;

Teste e retorne por favor;

Código:

Private Sub SeuBotão_Click()
'By JPaulo ® Maximo Access
Dim varTotal As Date
Dim varLinha%
Dim strHoras$
Dim strMinutos$
Dim strHorasMinutos$
Dim FormataHorasMinutos$

    For varLinha = 1 To (Me.SuaLista.ListCount - 1)
    varTotal = varTotal + CDate(Me.SuaLista.Column(2, varLinha))
    Next

  strHoras = CStr(Fix(varTotal) * 24 + Hour(varTotal))
  strMinutos = Right("0" & CStr(Minute(varTotal)), 2)
  strHorasMinutos = strHoras & ":" & strMinutos
  FormataHorasMinutos = strHorasMinutos
Me.SuaCaixaTexto = FormataHorasMinutos
End Sub

Mais uma vez , muito obrigado pela dica.

Que tenhamos inúmeras pessoas com a mesma dedicação para auxiliar o próximo.

Atenciosamente, Grato

Fico feliz e agradeço as suas palavras.

O fórum também agradece o seu retorno.