none
Calculo de horas em textbox RRS feed

  • Pergunta

  • 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.

    quinta-feira, 20 de novembro de 2014 23:39

Respostas

  • 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

    • Marcado como Resposta JLNunes sexta-feira, 21 de novembro de 2014 21:55
    sexta-feira, 21 de novembro de 2014 10:06

Todas as Respostas

  • 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

    • Marcado como Resposta JLNunes sexta-feira, 21 de novembro de 2014 21:55
    sexta-feira, 21 de novembro de 2014 10:06
  • boa noite

    Obrigado Rafael Kamimura, resolvido 100%

    sexta-feira, 21 de novembro de 2014 21:55