[Resolvido]Calculo entre datas

Tenho um formulário com três campos:
Data_Inicial (Formato:19/9/2011 13:34:16)
Data_Final (Formato:19/9/2011 13:50:18)
Total_Horas ?

Como faço para colocar em um botão um códico que calcule o tempo total entre essas datas?

Boa tarde,

Você quer calcular a diferença entre as horas?


Adilson

Isso mesmo, mais no caso se passar de um dia para outro precisa calcular quantas horas deu.


Exemplo:
Inicio: 19/09/2011 13:00:52
Final: 20/09/2011 14:00:00
Total: 25:00:52

Valeu.

Este exemplo faz isso:

http://maximoaccess.forumeiros.com/t4446-listbox-calculos-diversos-desvio-padrao-pesomed-min-e-max-soma-coluna-soma-coluna-com-criteriosetc

Cumprimentos.

Bao tarde,

Veja se Resolve.

Dim dt as date
dim data as variant

dt = textbox.value

data = datediff(h, now,dt)

Teste esta função que desenvolvir, creio que atenda sua necessidade.


Function TempoDataHoras(intervalo)

Dim totalhoras As Long, totalminutos As Long, totalsegundos As _
Long
Dim dias As Long, horas As Long, Minutos As Long, Segundos As Long

dias = Int(CSng(intervalo))
totalhoras = Int(CSng(intervalo * 24))
totalminutos = Int(CSng(intervalo * 1440))
totalsegundos = Int(CSng(intervalo * 86400))
horas = totalhoras Mod 24
Minutos = totalminutos Mod 60
Segundos = totalsegundos Mod 60

TempoDAtaHoras = dias & " Dias " & hours & " Horas " & Minutos & _
" Minutos " & Segundos & " Segundos "

End Function

OK. Obrigado pelas ajudas. Está resolido.