Página 1 de 1
Subtração entre Textbox
Enviado: Sex Nov 02, 2012 7:27 pm
por zootec
Pessoal como faço para subtrair duas datas entre textbox
Txt1 : 10/01/2012
Txt2 : 10/02/2012
Txt3 : 31
Obrigado pela atenção,
Re: Subtração entre Textbox
Enviado: Seg Nov 05, 2012 4:19 pm
por BaptistaCG
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,
Resolvido,
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
Espero que lhe atenda,
Att...
Re: Subtração entre Textbox
Enviado: Seg Nov 12, 2012 5:05 pm
por zootec
Valeu cara,
Funcionou perfeitamente