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, :idea:

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