[Resolvido]Converter texto para data

lebersa12 10/10/2014, 21:53

lebersa12: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 108
Registrado : 16/05/2014

Mensagem nº1

[Resolvido]Converter texto para data

Mensagem lebersa12 10/10/2014, 21:53

Olá Amigos!

Recorro mais uma vez a esse fórum que tem me ajudado muito.

Tenho um texto em uma tabela que está no seguinte formato:
Exemplos:

19 SEP 2014
22 SEP 2014

Preciso converter em uma consulta, de texto para data, conforme abaixo:

19/09/2014
22/09/2014

Para resolver esse caso eu tentei:

1) (Esquerda([DATA_TRANSACAO],2) & "/" & (Meio([DATA_TRANSACAO],4,3)) & "/" & Direita([DATA_TRANSACAO],2))
- Retorna 19/SEP/14

2) CDate(Esquerda([DATA_TRANSACAO],2) & "/" & (Meio([DATA_TRANSACAO],4,3)) & "/" & Direita([DATA_TRANSACAO],2))
- Retorna #Erro#.

Sabem me orientar como devo proceder?

Obrigado!!

LiveBrain 11/10/2014, 02:53

LiveBrain

LiveBrain: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 182
Registrado : 15/05/2011

Mensagem nº2

Re: [Resolvido]Converter texto para data

Mensagem LiveBrain 11/10/2014, 02:53

voce poderia criar uma variável e usar um Select Case

mais ou menos assim

Código:: Dim stMes as String Select Case Meio([DATA_TRANSACAO],4,3) Case "JAN" stMEs="01" Case "FEB" stMEs="02" Case "MAR" stMEs="03" Case "APR" stMEs="04" Case "MAY" stMEs="05" Case "JUN" stMEs="06" Case "JUL" stMEs="07" Case "AUG" stMEs="08" Case "SEP" stMEs="09" Case "OCT" stMEs="10" Case "NOV" stMEs="11" Case "DEC" stMEs="12" End Select CDate(Esquerda([DATA_TRANSACAO],2) & "/" & stMes & "/" & Direita([DATA_TRANSACAO],2))

.................................................................................
Abraços

Live Brain Tutoriais

"Fraca é a pessoa que não conhece a força que possui nos amigos"

**Avelino Sampaio** 11/10/2014, 07:51

Avelino Sampaio

Avelino Sampaio: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 3900
Registrado : 04/04/2010

Mensagem nº3

Re: [Resolvido]Converter texto para data

Mensagem Avelino Sampaio 11/10/2014, 07:51

Olá!

Uma outra opção:

Public Function fncMontaData(strData As String) as date
Dim p, mes As Byte
p = Split(strData, " ")
Select Case p(1)
Case "Jan": mes = 1: Case "feb": mes = 2
Case "mar": mes = 3: Case "apr": mes = 4
Case "may": mes = 5: Case "jun": mes = 6
Case "jul": mes = 7: Case "aug": mes = 8
Case "sep": mes = 9: Case "oct": mes = 10
Case "nov": mes = 11: Case "dec": mes = 12
End Select
fncMontaData = DateSerial(p(2), mes, p(0))
End Function

Na consulta crie o campo virtual, chamando pela função:

NovoCampo: fncMontaData([data_transacao])

Sucesso!

.................................................................................
Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces
Clique AQUI e analise o custo beneficio do material oferecido.