[Resolvido]Calcular tempo corrido

Boa tarde meus amigos, desde cedo tentando criar cálculos do  tempo corrido e pesquisando no fórum achei alguns e não entendi o código e outros não  funcionaram.
estou tentando calcular o tempo corrido e converte por inteiro para somar com o valor proposto , exemplo
txtInicio = 14:00:51
txtFinal  = 15:00 :00
txtAcerto = 1h
não consiguo

Código:

Function tempoCorrido()
Dim Acerto As String
Dim intervalo
Acerto = Int(CSng(intervalo)) & " days " & Format(intervalo, "hh") _
       & " Hours " & Format(intervalo, "nn") & " Minutes " & _
        Format(intervalo, "ss") & " Seconds"
End Function


Código:

Private Sub txtEncerrar_Click()
Me.txtAcerto = tempoCorrido

Código:

me.txtValor = me.txtAcerto*txtValorProposto

o objetivo é cobrar o tempo gasto
vou criando outros codigos , misericordia

Olá Crysostomo

Penso que é disso que precisa!

Saludos

Boa noite meu amigo, é isso mesmo, vou adaptar ele com alguns comando e te retorno.
Mas de qualquer forma resolvido!

Bom día Crysostomo

Que bom!!!

Bom dia frank . esse arquivo que você fez foi excelente, mas se eu quisesse dia, hora e minuto.
pode me ajudar ?
eu estou fazendo um sistema de estacionamento o cliente deixou o carro dele la 3 dias  , enquanto não encerrar o sistema o sistema vai cobrar a data, horas e minutos.
Porque se a hora final for igual a final o sistema vai zerar o dia quero que o sistema coloque 24 hs e enquanto não encerrar  sistemas vai colocando mais 24.  quando encerrar o sistema cobra dias e horas.
deu certo aqui , mas fiz uma confusão aqui com os códigos sujos , ou seja um monte de códigos que eu acho que tem como reduzir
Me.txtEntreDatas = DateDiff("h", txtDiaI, txtDiaF + Abs(txtDiaF < txtDiaI))
   Me.txtCobrançaDeHorasEminutos = Me.Texto38 * Me.txtValorCobrado & ";" & Me.Texto36 ' juntar horas com minutos cobrado
   Me.txtCobrancaDeDia = Me.calcDia * Me.txtValorCobrado ' cobrar dia
   Me.txtAcerto = txtEntreDatas & " dias " & (Texto38) & " hs ; " & (Texto36) & " min" ' colocar no campo do tento que estacionou  Set rst = CurrentDb.OpenRecordset("SELECT * FROM tblEstacionamento WHERE horasEncerrada IS NULL")
   Me.txtValorTotal = Me.txtCobrancaDeDia + Me.Texto38 & "," & Me.Texto36
'se não tem registos, morre aqui
If Me.hI = Me.hF And Me.txtDiaI = Me.txtDiaF Then
   Me.txtEntreDatas = 0
else



O que eu fiz aqui foi o seguinte  o sistema está rodando dos dias e a hora  se o veículo esta 3 dias parado o sistema esta cobrando os dias as horas e minutos