Notifications
Clear all

Horas e Data com Cálculo em Formulário

3 Posts
2 Usuários
0 Reactions
717 Visualizações
(@mendesws)
Posts: 0
New Member
Topic starter
 

Olá, Pessoal

Estou trabalhando no formulário abaixo e preciso de ajuda nos seguintes pontos:
1. O usuário insere hora de INICIO e FIM e automaticamente ele deve calcular o TOTAL (Subtrair a Hora de Fim com a de Inicio)
2. A data que o usuário insere, deve manter o padrão de data do excel ou existe algum modo que ele possa selecionar?

Hoje, utilizando esse código para inserir uma máscara, porém eu não consigo fazer o calculo do TOTAL, utilizando essa maneira:

MaxLenghth = 5 (Foi setado nas propriedades do TextBox)

If Len(txtInicio) = 2 Then
        txtInicio = txtInicio & ":"
    End If

 
Postado : 20/01/2016 7:09 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Seria algo +/- assim:
Inserir no evento Before_Update ou Exit do textbox2

If TextBox1.Text <> "" Then TextBox3.Text = Format(CDate(TextBox2.Text) - CDate(TextBox1.Text), "HH:MM")

Onde:
TexBox1 --> Sua caixa de texto Inicio Hora
TexBox2 --> Sua caixa de texto Fim Hora
TexBox3 --> Sua caixa de texto Qtde Horas

 
Postado : 20/01/2016 8:18 am
(@mendesws)
Posts: 0
New Member
Topic starter
 

Funcionou perfeitamente.

Obrigado, Reinaldo.

 
Postado : 20/01/2016 8:52 am