Galera tenho uma userform com tres textbox onde coloco a hora inicial, na outra a hora final, e gostaria que na terceira textbox não fosse editável e mostrasse a diferença em horas entre a textbox2 e a textbox1 assim que os dados fossem inseridos nas duas primeiras textbox. Já fiz de tudo e até hoje não consegui.
Pergunta
ljvo.2003
Galera tenho uma userform com tres textbox onde coloco a hora inicial, na outra a hora final, e gostaria que na terceira textbox não fosse editável e mostrasse a diferença em horas entre a textbox2 e a textbox1 assim que os dados fossem inseridos nas duas primeiras textbox. Já fiz de tudo e até hoje não consegui.
eu fiz dessa maneira mas não deu certo:
Private Sub HINICIO_Change()
HINICIO.MaxLength = 5
If Len(HINICIO) = 2 Or Len(HINICIO) = 2 Then
HINICIO.Text = HINICIO.Text & ":"
SendKeys "{End}", True
End If
End Sub
Private Sub HFINAL_Change()
HFINAL.MaxLength = 5
If Len(HFINAL) = 2 Or Len(HFINAL) = 2 Then
HFINAL.Text = HFINAL.Text & ":"
SendKeys "{End}", True
End If
End Sub
Private Sub TEMPO_Change()
Dim x As Integer
Dim y As Integer
x = HINICIO.Text
y = HFINAL.Text
TEMPO.Text = y - x
End Sub
Agradeço a todos :rolleyes:
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.