Calculo de horas em textbox

Question

Boa noite

qual o codigo para calcular a diferença entre horas no exemplo abaixo?

textbox1= 23:00:00

textbox2= 02:10:00

neste caso o valor seria = 03:10:00

observe qua a hora passa das 24:00 horas 

Obrigado.

Answer 1

Você deve criar uma condição que se o valor do textbox2 for menor que o valor do textbox1, some 1 no valor do textbox2.

Por exemplo:

Private Sub CommandButton1_Click()
Dim dtHora1 As Date
Dim dtHora2 As Date
Dim dtDiferença As Date

dtHora1 = TextBox1.Value
dtHora2 = TextBox2.Value

If TextBox2 < TextBox1 Then
dtHora2 = dtHora2 + 1
End If

dtDiferença = dtHora2 - dtHora1

MsgBox dtDiferença

End Sub

---

Rafael Kamimura

Answer 2

boa noite

Obrigado Rafael Kamimura, resolvido 100%