none
Calculo entre horas RRS feed

  • Pergunta

  • Bom dia!

    Tenho dois textbox que recebem o valor hora, e preciso calcular entre esse dois valores o horário de atraso, estou utilizando o código abaixo, mas estou com um problema, ao digitar um horário que seja 24:10 gera um erro, se digitar o horário sendo 00:10 não gera o erro, desta forma preciso que mesmo digitando 24:10 seja transformado para 00:10.

    Private Sub Tb_HoraProj_Change() If Len(Tb_HoraProj) = 2 Then Tb_HoraProj.Text = Tb_HoraProj.Text & ":" SendKeys "{End}", True End If End Sub

    Private Sub Tb_H_Saida_Change()

    If Len(Tb_H_saida) = 2 Then
      
      Tb_H_saida.Text = Tb_H_saida.Text & ":"
    SendKeys "{End}", True
    End If

    End Sub

    Private Sub Cb_Linhas_Enter()

    Me.Tb_Resultado = Format(24 - (1 - (TimeValue(Me.Tb_H_saida) - TimeValue(Me.Tb_HoraProj))), "hh:nn")

    End Sub


    terça-feira, 4 de março de 2014 12:57

Todas as Respostas

  • Bom dia!

    Segue abaixo o link de uma planilha exemplo:

    http://www.4shared.com/file/3O2ej4w-ce/Calculo_entre_Horas_VBA.html

    Preciso resolver este problema, quando é digitado um valor de hora acima de 24:00 e a pessoa que estiver digitando o valor hora digitar desta forma 24:00 gera um erro no código

    Private Sub Tb_Resultado_Enter()

    Me.Tb_Resultado = Format(24 - (1 - (TimeValue(Me.Tb_H_Saida) - TimeValue(Me.Tb_HoraProj))), "hh:nn")

    End Sub

    Se digitar o valor horas desta forma 00:00 o calculo é efetuado com sucesso. Desta forma preciso bloquear para que não possa digitar com esse formato 24:00, ou até pode digitar mas que seja transformado para 00:00. 

    Outra solução que vejo é criar um tratamento deste erro, porem não consegui monta-lo.

    desde já agradeço a atenção de todos!

    quarta-feira, 5 de março de 2014 14:26