PESQUISA ENTRE DATA

ROBIU 21/03/2012 16:39:59
#397892 Resposta escolhida
Então desmembra o campo:

Dim Sql As String
        Sql = [Ô]SELECT a1_cod, a1_nome,  LEFT(a1_dtnasc, 2) + [ô]/[ô] + SUBSTRING(a1_dtnasc, 3, 2) + [ô]/[ô] + RIGHT(RTRIM(a1_dtnasc), 4) AS NewData [Ô]
        Sql = Sql & [Ô] FROM sa1010 where Day(a1_dtnasc)=[ô][Ô] & Mid(CDataInicial.Text, 1, 2) & [Ô][ô] and Month(a1_dtnasc)=[ô][Ô] & Mid(CDataFinal.Text, 4, 2) & [Ô][ô][Ô]
PACIFICO 21/03/2012 17:20:06
#397897
Alguma ajuda por favor!
PACIFICO 21/03/2012 19:03:15
#397902
ROBIU, fico grato pela ajuda, porém, o formato saiu errado.

selecione de: 21/03 até 21/03
saiu assim as datas: 19/63/0321
que o certo é: 21/03/1963

Thanks!
ROBIU 21/03/2012 19:18:44
#397903
19/63/0321 = 19630321-1963/03/21 = ano/mes/dia.
Eu fiz com base na data de formato ddmmyyyy, mas o seu banco está retornando yyyymmdd. Então é só ajustar as substrings:

RIGHT(RTRIM(a1_dtnasc), 2) + [ô]/[ô] + SUBSTRING(a1_dtnasc, 5, 2) + [ô]/[ô] + LEFT(a1_dtnasc, 4)
PHOENIX209E 22/03/2012 01:13:29
#397915
E se voce fizesse isso:

Dim sql As String = [Ô]SELECT a1_cod, a1_nome, convert(varchar,a1_dtnasc,3) FROM sa1010 where Day(a1_dtnasc)=[ô][Ô] & Mid(CDataInicial.Text, 1, 2) & [Ô][ô] and Month(a1_dtnasc)=[ô][Ô] & Mid(CDataFinal.Text, 4, 2) & [Ô][ô][Ô]

Isso vai lhe retornar

dd/mm/aa
PACIFICO 22/03/2012 08:37:33
#397920
ROBIU, deu certo! Fico grato pela ajuda.

PHOENIX209E, valeu!

Obrigado a todos!
Página 2 de 2 [16 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar