Notifications
Clear all

Macro que altera o formato da data

3 Posts
2 Usuários
0 Reactions
1,147 Visualizações
(@vguedes)
Posts: 47
Eminent Member
Topic starter
 

Prezados,

Em uma coluna de um relatório que extraio de um servidor, as datas aparecem no formato do tipo "2017-11-16 00:00:00.0".

O problema é que as fórmulas do excel não leem este formato, portanto utilizei o seguinte código para transformar no formato dd/mm/aaaa.

If Len(Cells(i + 1, col_ini_prospec)) > 5 Then

dia = Mid(Cells(i + 1, col_ini_prospec), 9, 2)
mes = Mid(Cells(i + 1, col_ini_prospec), 6, 2)
ano = Mid(Cells(i + 1, col_ini_prospec), 1, 4)

Cells(i + 1, col_ini_prospec) = dia & "/" & mes & "/" & ano

Else

Cells(i + 1, col_ini_prospec) = ""

End If

O problema é em algumas datas ele automaticamente inverte o dia e mês, como se transformasse em formato americano. Por exemplo, a data 01/02/2018 passa a aparecer como 02/01/2018.

Alguém sabe como posso corrigir isso?

Att.,

Vguedes

 
Postado : 29/01/2018 11:54 am
(@klarc28)
Posts: 971
Prominent Member
 
Cells(i + 1, col_ini_prospec) = CDATE(dia & "/" & mes & "/" & ano)
 
Postado : 29/01/2018 12:16 pm
(@vguedes)
Posts: 47
Eminent Member
Topic starter
 

Perfeito, obrigado klarc!

Não conhecia esta função.

 
Postado : 30/01/2018 8:29 am