Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Data invertida textbox (Resolvido)

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
adhuters
Colaborador
Colaborador
Mensagens: 11
Registrado em: Dom Jan 07, 2018 12:53 pm

Data invertida textbox (Resolvido)

Mensagem por adhuters »

Galera, Boa Noite

Preciso de uma ideia, quando salvo uma data de textbox, ocorre um problema de inversão, porém, só com datas antigas. Por exemplo, hoje é dia 14/05, todas a data superiores a de hoje, não vão inverter, porém, se eu coloco dia 13/05, essa data já inverte, já virão algo assim?

Agradeço pela ajuda
Editado pela última vez por adhuters em Qua Mai 23, 2018 7:46 pm, em um total de 1 vez.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
robson.kaypper
Acabou de chegar
Acabou de chegar
Mensagens: 4
Registrado em: Seg Abr 16, 2018 11:41 am

Re: Data invertida textbox

Mensagem por robson.kaypper »

@adhuters bom dia.
Veja se isso te serve:

Textbox1 = Format(Textbox1.Value, "##/##/####")


leilsonhenrique
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Qui Fev 21, 2019 1:59 pm

Re: Data invertida textbox

Mensagem por leilsonhenrique »

Boa tarde, não estou conseguindo mesmo usando os esclarecimentos acima. Tenho a TextBox abaixo, e continua invertendo, teriam como corrigir para me ajudar.
Att.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If IsDate(Me.TextBox1.Text) = False And Me.TextBox1.Text <> Empty Then
MsgBox ("A Data Digitada não é Válida")
Me.TextBox1.SetFocus
End If

End Sub


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Data invertida textbox (Resolvido)

Mensagem por Reinaldo »

A rotina existente em "Private Sub TextBox1_Exit" apenas verifica se e uma data valida.
Sugiro que abra seu proprio tópico disponibiliando seu modelo para uma melhor avaliação


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder