Pessoal como faço para subtrair duas datas entre textbox
Txt1 : 10/01/2012
Txt2 : 10/02/2012
Txt3 : 31
Obrigado pela atenção,
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Subtração entre Textbox
- BaptistaCG
- Colaborador
- Mensagens: 96
- Registrado em: Seg Jul 30, 2012 10:33 pm
- Localização: Sorocaba/SP
Re: Subtração entre Textbox
Resolvido,zootec escreveu:Pessoal como faço para subtrair duas datas entre textbox
Txt1 : 10/01/2012
Txt2 : 10/02/2012
Txt3 : 31
Obrigado pela atenção,
Tenta este código aqui,
Código: Selecionar todos
'É somente isso que você precisará, mas para ficar melhor e não ter que digitar as barras eu escrevi os outros códigos.
Private Sub CommandButton1_Click()
Dim txt1 As Date
Dim txt2 As Date
txt1 = TextBox1.Value
txt2 = TextBox2.Value
TextBox3 = txt2 - txt1
End Sub
'---------------------------------------------------------------------------------------
'Aqui formata as textbox's com as barras
Private Sub TextBox1_AfterUpdate()
TextBox1.Value = Format(TextBox1, "##/##/####")
End Sub
Private Sub TextBox2_AfterUpdate()
TextBox2.Value = Format(TextBox2, "##/##/####")
End Sub
'---------------------------------------------------------------------------------------
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Definindo para permitir apenas 8 caracteres
TextBox1.MaxLength = 8
'Se Pressionar alguma tecla menor que 0 ou maior que 9 então
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
MsgBox "Digite apenas números sem . - e /.", vbInformation, "Erro"
'Faz com que a letra pressionada seja igual a "nada"
KeyAscii = 0
End If
End Sub
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Definindo para permitir apenas 8 caracteres
TextBox1.MaxLength = 8
'Se Pressionar alguma tecla menor que 0 ou maior que 9 então
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
MsgBox "Digite apenas números sem . - e /.", vbInformation, "Erro"
'Faz com que a letra pressionada seja igual a "nada"
KeyAscii = 0
End If
End Sub
Att...