Notifications
Clear all

Excel Invertendo Data

3 Posts
3 Usuários
0 Reactions
1,427 Visualizações
(@headway123)
Posts: 7
Active Member
Topic starter
 

Olá a todos,

Por gentileza, estou com um problema e gostaria de pedir a ajuda de voces.

Estou com o seguinte problema em um formulário do VBA

Ao preencher com a data, o Excel inverte o DIA, pelo MÊS, em qualquer data anterior ao dia 12.

Já mudei a formatação de data do Excel para Portugues, Ingles, e também não deu certo.

Segue o código que utilizo.

If Len(TxtProximoContato.Text) = 2 Then
TxtProximoContato = TxtProximoContato + "/"
End If

If Len(TxtProximoContato.Text) = 5 Then
TxtProximoContato = TxtProximoContato + "/"
End If

Estou reabrindo outro tópico, pois no primeiro não consegui encontrar uma solução.

Já tentei vários códigos que me passaram em outros fóruns, e nenhum resolveu meu problema.

Se alguém souber de que forma posso resolver este erro, ficarei muito grato.

 
Postado : 29/08/2018 1:44 pm
brunoxro
(@brunoxro)
Posts: 698
Honorable Member
 

Boa noite,

Anexe uma planilha de exemplo, assim fica mais fácil tentar ajudar.

att,

 
Postado : 29/08/2018 4:13 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

O VBA por ser um desenvolvimento americano, utiliza/entende internamente o padrão de data americano que é Mes dia ano (mm/dd/yyyy),
assim ao "pegar" o conteúdo de um TexBox, que por default e passado/considerado como texto(string), as rotinas internas do VBA tenta converter esse conteúdo para padrões, como valores/numeros e/ou data.
O "código" postado é utilizado apenas para incluir a barra ao digitar a no TextBox, gravar esse conteúdo na planilha/ com certeza; e em outra parte de seu projeto; nesse momento e que pode ocorrer o relatado.
Nesse "salvamento" e que deve ser tratado o conteúdo de seu TextBox para data.
Normalmente utiliza-se funções de conversão como Cdate e/ou Format; creio que deve ser o que foi proposto em outros fóruns ou tópico.
Como diz que não conseguiu resolver sua demanda, acredito que seja por não haver aplicado o proposto de forma e no momento correto.
Assim sugiro que poste seu modelo com alguns poucos exemplos, altere dados que julgar conveniente para fictícios.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 30/08/2018 4:23 am