Notifications
Clear all

Como formatar Data via código

23 Posts
3 Usuários
0 Reactions
7,358 Visualizações
(@jcgmc)
Posts: 0
New Member
Topic starter
 

Boa noite,
Peço ajuda aos amigos. Pois Tenho o código abaixo, para formatação de Data em ??/??/??

Private Sub cdCadUltCont_keypress(ByVal keyascii As MSForms.ReturnInteger)
cdCadUltCont.MaxLength = 8
Select Case keyascii
Case 6
Case 13: SendKeys "(TAB)"
Case 48 To 57

If cdCadUltCont.SelStart = 2 Then cdCadUltCont.SelText = "/"
If cdCadUltCont.SelStart = 5 Then cdCadUltCont.SelText = "/"

Case Else: keyascii = 0

End Select
End Sub

Porém, não estou conseguindo fazer armazenar na Coluna "J" a data 11/07/15
A data está ficando invertida desta maneira 07/11/15
Como fazer pra conseguir ficar como 11/07/15 ?

Obrigado!

 
Postado : 11/07/2015 8:37 pm
(@jcgmc)
Posts: 0
New Member
Topic starter
 

Bom dia Mauro e Patropi,
Bem, eu já havia visto este tópico tbém, e não consegui nada. Por isso recorri à VCs. Rsss
Concordo com VCs q eu deva estar errando em algo sim, mas Vou continuar os testes e caso precise, eu dou um grito aeee Blzz!!
Abraços.
Carlos

 
Postado : 13/07/2015 1:43 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia Mauro e Patropi,
Bem, eu já havia visto este tópico tbém, e não consegui nada. Por isso recorri à VCs. Rsss
Concordo com VCs q eu deva estar errando em algo sim, mas Vou continuar os testes e caso precise, eu dou um grito aeee Blzz!!
Abraços.
Carlos

Carlos, mesmo que não tenha resolvido, e estaremos aguardando algum retorno seu, poderia ao menos agradecer pelas ajudas que teve clicando no icone da mãozinha .

 
Postado : 13/07/2015 5:22 am
(@adgere)
Posts: 0
New Member
 

Sempre resolvi esse problema de inversão de mes e dia ao ser lançado na celula formatando a celula para Texto.
Experimente talvez te ajude...

 
Postado : 13/07/2015 9:09 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Sempre resolvi esse problema de inversão de mes e dia ao ser lançado na celula formatando a celula para Texto.
Experimente talvez te ajude...

Tambem seria uma alternativa, só que ele não esta conseguindo formatar para data e para texto seria da mesma forma, eu só não recomendei como Texto pois pode ser que futuramente queira criar filtros por data e teria de converter de texto para data novamente, seriam dois trabalhos na minha opinião, mas vamos aguardar os testes que ele diz estar fazendo e ver o que diz.

[]s

 
Postado : 13/07/2015 11:25 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Pelo retorno lacônico

Negativo, os erros continuam :(

Quero crer que não foi aplicado corretamente o proposto pelo colega Mauro.
Assim seria melhor disponibilizar seu modelo.

 
Postado : 13/07/2015 2:15 pm
(@jcgmc)
Posts: 0
New Member
Topic starter
 

Boa noite Pessoal!!
Quero agradecer ao grande mestre "Bernardo" pela solução do problema, com o seguinte código abaixo:

Sheets("Clientes").Cells(Linha, 10) = DateSerial(Mid(UserForm1.cdCadUltCont.Text, 7, 2), Mid(UserForm1.cdCadUltCont.Text, 4, 2), Mid(UserForm1.cdCadUltCont.Text, 1, 2))

Agradeço tbém à todos VCs pelo interesse em me ajudar Ok!! Este Forum é Dezzzzzzzzzzzz!! :-)
Abraços e até ++++++++

 
Postado : 13/07/2015 4:42 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Carlos, ainda bem que resolveu, e apesar de ter colocado como resolvido, fiquei meio sismado e refiz um modelo baseado na rotina que utiliza no combobox e a não ser pela minha 4ª postagem, até editei e arrumei os parenteses errados, todas lançaram conforme o solicitado, ou seja sem a data estar invertida, o que me leva a crer como o Reinaldo disse, provavelmente não foi aplicado corretamente .
Qualquer outra duvida retorne.

[]s

 
Postado : 13/07/2015 7:40 pm
(@jcgmc)
Posts: 0
New Member
Topic starter
 

Boa noite Mauro, Blz!!
Pois é, agora tahh tudo ok! Mas msm assim, Mais uma vez, muito agradecido à sua grande atenção ok!!
Forte abraço e T+++ :)

 
Postado : 13/07/2015 8:56 pm
Página 2 / 2