Pessoal, a situação é a seguinte:             

-Possuo uma tabela com os campos:   hora_inicial e hora_final  (ambas tipo Date/Time).

-Preciso calcular a diferença entre as horas (final-inicial).

-Deve ser previsto a situação em que esse periodo (de: hora_inicial  até: hora_final, passe da meia noite(onde a hora zera).

 

Obs.:  banco access - conexão DAO JET 

 

Aguardo ajuda dos amigos...

Ricardo.  

Faça o seguinte:

Voce tem no BD a hora anterior marcada, então coloque desta forma:

Private sub PEGARTEMPO_Click

 dim horaanterior as date

 dim tempodecorrido as long

 horaanterior = BANCODEDADOS!horaanterior

 tempodecorrido = DateDiff( "n", horaanterior, now)

End If

Espero que ajude.

 

 

 

se for para saber o total de tempo basta:

tempo total em horas = (hora final-hora inicial)*24

 

PS. isso irá transformar o tempo em hora p/calculo ou seja 1 e 30 minutos a resposta será 1.50, é o que eu uso para fazer cálculos de tempo