Alcides
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 22/04/2011 12:09 hs
Gente,
Estou apanhando para transformar uma string em data.
veja que se colocar as barra me retorna o valor correto, mas não fuciona sem as barras e eu tenho apenas a string sem as barras
strData = Format("2242011", "dd/mm/yyyy")
retorna - 31/5/8038
'strData = CDate("22/4/2011")
MsgBox strData
como que eu faço para transformar:
2242011 em 22/4/2011?
|
|
|
|
|
|
|
|
Postada em 22/04/2011 20:32 hs
Primeramente vc tem que ter a string certa pq se o mes for 10, 11 ou 12 como va pegar os 2 carateres para esses meses. pq para 12,3,4,5,6,7,8,9 não va ter problemas quando usar a função mid. a string certa seria 22042011. com mid seria assim: data=mid(texto,1,2) &"/" & mid(texto,3,2) & "/" & mid(texto,5,4) |
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 23/04/2011 01:05 hs
Dim Dta As Date
Dta = Format("22042011","##/##/####")
|
|
|
|
Alcides
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 23/04/2011 08:44 hs
Juan Carlos , estava tentando algo assim mesmo onde o mes era menor que 10 eu incluia um zero a esquerda.
mas a dica do treze resolveu de vez o meu problema..
Valeu!!! Vocês são feras mesmo
|
|
|
|
|
|
Postada em 23/04/2011 16:09 hs
Isso mesmo, tendo a string certa com mes menor que 10 colocando o 0 funciona perfeitamente com a dica de treze, mais curta. |
|
|
|
Macaubal
|
MACAUBAL
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 25/04/2011 14:00 hs
Pessoal procure ver nas configurações regionais como está o Formato de data abreviada, o comando FORMAT assume o que está definido nesta configuração.
|
|
|
|
