Este fórum está sendo desativado

[duds]

Boa tarde pessoal!

É utilizado um equipamento de ensaio aonde trabalho que emite os resultados em .txt esses resultados, passo para uma planilha. Até aí ok! Porém é de grande importância a data da realização do ensaio para a classificação dos dados na tabela, e essa data vem com a seguinte formatação: "dd-mmm-yyyy". O problema é que o software não é nacional, então alguns meses não possuem a sigla igual ao do português, por exemplo, Agosto-Ago e August-Aug.
Adicionando na macro que possuo para cadastrar os resultados, algum código encontre o erro e substitua a sigla, faz com que ocorra um problema, no depurador a indicação aparece correta: Se antes era 11-Feb-2015, no depurador indica 11-02-2015, porém ao transcrever para o excel, passa sendo 02/11/2015 (02/Novembro/2015) invertendo mês com dias.
Já tentei várias coisas como substituir pela sigla brasileira, mas ai falha a formatação pois não indica data, vira apenas um texto.
Se eu usar o Substituir do excel, funciona, o replace do VBA, inverte.
Alguém saberia como mudar isso?

Agradeço desde já!

Att.

[JeanHard]

Bom dia Duds.
Já aconteceu isso comigo. O que resolveu no meu caso foi: No evento initialize já formatei minha text ==> Txtdata = CDate(Format(Date, "DD/MM/YYYY" ' ou seu formato)) e declarei uma variável no botão de confirmação ===> dim dt as date ===>
Txtdata = dt

Comigo deu certo.

[JeanHard]

Desculpa minha falha. Corrigindo a variável é dt = Txtdata

[duds]

Certo, tentarei a implementação! Muito obrigado Jean!
Utilizo dai essa variável para transcrever a data para o excel, correto?

Att.

[JeanHard]

Correto.

[JeanHard]

Eu citei o evento initialize pq no meu caso se tratava de uma data automática. Caso sua data seje digitada use também no evento do seu text.

[duds]

Muito obrigado Jean, funcionou!

Att.