Subtraindo HORAS


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Subtraindo HORAS

Josefh Hennyere

SALVADOR
BA - BRASIL

Postada em 01/11/2004 15:07 hs

Como subtrair valores ex.:

15:14:19 - 15:10:19

Para retornar um tempo. Neste caso seria 4 minutos

DennysFelix

SÃO PAULO
SP - BRASIL

Postada em 01/11/2004 15:24 hs

Para calcular a diferença entre datas horas, utilize a função DateDiff, é possível retornar a diferença em minutos, horas, dias,... Segue abaixo um exemplo que retorna a diferença em dias. Maiores detalhes sobre a função DateDiff, consulte o Help. Exemplo:

MsgBox DateDiff("d", "21/08/1999", Date)

Denis de L Felix

msn - dennysfelix_senac@hotmail.com

Josefh Hennyere

SALVADOR
BA - BRASIL

Postada em 02/11/2004 03:37 hs

Acho que não fui feliz na minha pergunta. De qualquer forma agradeço ao amigo Dennys pela resposta enviada. Para resolver mue problema, precisei adaptar um controle Timer com intervavo de 1000. "Precisava de um tempo progressivo". Além disso utilizei a função abaixo para ter a resposta desejada.

Public Function SecToTime(NewSec As Double) As String
On Error Resume Next
Dim Secx, Minx, Hourx
    NewSec = Int(NewSec)
If NewSec < 1 Then
    SecToTime = "00:00:00"
Exit Function
End If
    Secx = NewSec - Int(NewSec / 60) * 60
    Minx = Int((NewSec - Int(NewSec / 3600) * 3600) / 60)
    Hourx = Int(NewSec / 3600)
If Int(Hourx) > 24 Then
    SecToTime = "24:59:59"
Else
    SecToTime = Format(Str(Hourx) & ":" & Str(Minx) & ":" & Str(Secx), "hh:mm:ss")
    Exit Function
End If
End Function

Página(s): 1/1