Notifications
Clear all

Formatar valor para data

4 Posts
2 Usuários
0 Reactions
649 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde pessoal,

Tenho uma planilha que importa dados de um programa. Nesta importação
vem as datas na seguinte forma ex: 20140930 e eu gostaria que estas estivessem na
seguinte forma 30/09/2014. Existe alguma programação que faça isso, tipo uma
public function?

Att,

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 16/09/2014 1:00 pm
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

ricardorezende,

Boa Noite!

Veja se assim lhe atende.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 16/09/2014 3:58 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Extamente Wagner Morel!!

Poderia me explicar esse as funções de left e mid?

Muito obrigado!!

Att,

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 16/09/2014 8:44 pm
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

ricardorezende,

Bom Dia!

Bem... retirado do próprio Help do VBA:

Exemplo da função Left
Este exemplo usa a função Left para retornar um número especificado de caracteres, a partir do lado esquerdo de uma seqüência de caracteres.

Dim AnyString, MyStr
AnyString = "Olá Mundo" ' Definir a seqüência de caracteres.
MyStr = Left(AnyString, 1) ' Retorna "O".
MyStr = Left(AnyString, 7) ' Retorna "Olá Mun".
MyStr = Left(AnyString, 20) ' Retorna "Olá Mundo".

Exemplo da função Mid
O primeiro exemplo usa a função Mid para retornar um número especifico de caracteres de uma seqüência de caracteres.

Dim MyString, FirstWord, LastWord, MidWords
MyString = "Demonstração da função Mid" ' Criar a seqüência de texto.
FirstWord = Mid(MyString, 1, 3) ' Retorna "Mid".
LastWord = Mid(MyString, 14, 4) ' Retorna "Demo".
MidWords = Mid(MyString, 5) ' Retorna "Demonstração da função".

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 17/09/2014 3:56 am