Notifications
Clear all

Alterando o formato da data no MSExcel via VBA

3 Posts
1 Usuários
0 Reactions
1,307 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Prezados,

criei um botão e coloquei o seguinte código:

'Atualizando data.
Worksheets("Ficha Descritiva").Range("AQ14") = Format(Now(), "dd/mm/yyyy")

De forma que se for o dia 01/04/2010, deve ser escrito na célula "01/04/2010".
Não consegui entender porque, mas em alguns computadores o mês é invertido com o dia, ficando assim "04/01/2010".

Alguém poderia me ajudar?
Abraços.

 
Postado : 13/04/2010 8:52 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Verifique a formatação da celula. pode esta com o formato apontando para mm/dd/yyyy

caso seja necessário forçar, inclua uma linha forçando a formatação correta

Range("A1").NumberFormat = "dd/mm/yyyy"

 
Postado : 14/04/2010 7:22 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Já verifiquei a formatação da célula ,configurações regionais do computador e tentei forçar com o código indicado.

Só consegui resolver utilizando o seguinte procedimento:

Worksheets("Ficha Descritiva").Range("AQ14") = "'" & Format(Now(), "dd/mm/yyyy")

Abraços e obrigado.

 
Postado : 15/04/2010 10:55 am