SOMAR HORAS

USUARIO.EXCLUIDOS 10/06/2007 09:24:59
#220536
beleza galera???

como faço para somar duas horas no formato (01:00) + (02:00) e me retornar (03:00) ????

Qual o tipo de dado da variável que recebe estas datas? qual função usarei para somálas?
USUARIO.EXCLUIDOS 10/06/2007 11:05:13
#220537
Jeito simples

Private Sub Command1_Click()
Dim Tempo As Date

Tempo = Now + CDate("02:00:00")
Text1.Text = format(Tempo, "HH:MM")
End Sub



vc tem sempre que considerar o dia para verificar se o hora atual e maior que a hora somada.

para verificar se uma hora e maior que a outra e simples


esse outro exemplo


Dim Tempo As Date

Private Sub Command1_Click()
Tempo = Now + CDate("00:01:00")
Text1.Text = Format(Tempo, "H:MM")
End Sub


Private Sub Form_Load()
Command1_Click
End Sub

Private Sub Timer1_Timer()
Debug.Print Now & " || " & Tempo
If Tempo < Now Then
    MsgBox "Ta Na hora"
End If
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar