Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
REABERTO A DÚVIDA A...
 
Notifications
Clear all

REABERTO A DÚVIDA Alterar a formatação de uma data em VBA

 
2024 - VBA & Macros
Post Recente por FarahA 5 anos atrás
2 Posts
2 Usuários
0 Reactions
1,122 Visualizações
RSS
 JNEXCEL
(@jnexcel)
Posts: 298
Reputable Member
Topic starter
 

Prezados, não consegue reabrir o tópico então criei outro por que deu erro aqui para mim quando tentei usar para um xml do mês 10.
tópico anterior
viewtopic.php?f=10&t=31920

se quiserem fazer teste ai.

1º faça o download do xml teste
2º clique com o botão direito sobre ele
3º escolha a opção EDITAR
4º altere o campo <dEmi>"aqui vai estar a data original" altere para o dia 01/10/2019
5º o resultado vai ser esse aqui:
<dEmi>20191001</dEmi>

agora vem o problema.

na planilha o vba traz o seguinte
10/01/2019

como se fosse o dia 10 do mês de janeiro

sendo que deveria ser

01/10/2019

o padrão do xml é:

ano/mÊs/dia

teria alguma forma de fazer com o que o excel importe corretamente esses dados?

hoje ele está fazendo assim:
10/01/2019

correto seria

01/10/2019

desde já agradeço pela atenção.

 
Postado : 02/10/2019 11:10 am
 FarahA
(@faraha)
Posts: 28
Eminent Member
 

Boa tarde JNEXCEL,

Veja se atende a sua necessidade.

IF Right(xmlNode.SelectNodes("dEmi")(0).Text, 2) < 13 then
strDEmi = format(Right(xmlNode.SelectNodes("dEmi")(0).Text, 2) & "/" & Mid(xmlNode.SelectNodes("dEmi")(0).Text, 5, 2) & "/" & Left(xmlNode.SelectNodes("dEmi")(0).Text, 4), "MM/DD/YYYY")
End if
IF Right(xmlNode.SelectNodes("dEmi")(0).Text, 2) > 12 then
Right(xmlNode.SelectNodes("dEmi")(0).Text, 2) & "/" & Mid(xmlNode.SelectNodes("dEmi")(0).Text, 5, 2) & "/" & Left(xmlNode.SelectNodes("dEmi")(0).Text, 4)
end if
 
Postado : 02/10/2019 11:57 am
Forum Jump:
  Tópico Anterior
Próximo Tópico