[Resolvido]Idade em SQL

Amigos.. como adptar essa expressão em uma SQL?

Int(((Data()-[Data de Nascimento])-1)/365,25)


Grato pela ajuda

O que você quer fazer? É um SELECT? Não seria só carregar a data no formulário e fazer o cálculo direto?

Novamente LstBox amigão..
hehehe

A data de nascimento esta no Select...

se puder me dar uma luz!

Fico grato

Poste o código completo que fica mais fácil, acredito eu.

.
Para o SQL da ListBox é o simples;

Exemplo:

SELECT tblExemplo.Cliente, Int(((Date()-[Data de Nascimento])-1)/365.25) AS Idade
FROM tblExemplo;

Ops!!! Funcionou...

Agora JP e a faixa etária na mesma SQL

Grato

Em uma caixa texto uso

=SeImed(ÉNulo([txtDataNascimento]) Ou [txtDataNascimento]="";"";SeImed(DifData("yyyy";[txtDataNascimento];Data())<100;Esquerda(DifData("yyyy";[txtDataNascimento];Data());1) & "0/" & Esquerda(DifData("yyyy";[txtDataNascimento];Data());1)+1 & "0";Esquerda(DifData("yyyy";[txtDataNascimento];Data());2) & "0/" & Esquerda(DifData("yyyy";[txtDataNascimento];Data());2)+1 & "0"))

e em uma SQL?

Grato

Tentei assim mas não esta dando certo:

StrSQL = "SELECT Detentos.ID, Detentos.[Nome] & Space (1) & [Sobrenome] As Detentos, Detentos.Sexo, Detentos.Naturalidade," _
& "Detentos.[Data de Nascimento] As Nascimento, Int(((Date()-[Data de Nascimento])-1)/365.25) AS Idade," _
& "Detentos.[Grau de Instrução], SeImed(ÉNulo([Data de Nascimento]) Ou [Data de Nascimento]="";"";SeImed(DifData('yyyy';[Data de Nascimento];Data())<100;Esquerda(DifData('yyyy';[Data de Nascimento];Data());1) & '0/' & Esquerda(DifData('yyyy';[Data de Nascimento];Data());1)+1 & '0';Esquerda(DifData('yyyy';[Data de Nascimento];Data());2) & '0/' & Esquerda(DifData('yyyy';[Data de Nascimento];Data());2)+1 & '0')) FROM Detentos IN '" & StrPath & "'" _
& " WHERE ((UCase(Detentos.Nome) " & strSQL1 & ")) And UnidadeRequisitante='" & VarUnidade & "' and RegimeAtual='" & VarReg & "'" _
& " ORDER BY Detentos.Nome;"

Atenção ao abrir este tipo de tópico, porque SQL é diferente de VBA SQL, por isso na instrução acima lhe passei como se fosse SQL puro.

Não entendi Amigo JP poderia me explicar...

Para mim SQL era SQL.. não tinha conheciento de diferenças..

Sei que em consultas access e em VBA muda alguma coisa, por exemplo quando usa o Format em datas tem-se que substituir as " por '

Mas pretendo usar a faixa etária em SQL-VBA.. e agoras que esta me explicando sobre a diferença de abrir tópicos e fazer referencia de maneira correta, começarei a aplicar..
Peço desculpas pois não tinha esse conhecimento...

Saudações

Meu amigo, SQL não é igual a VBA SQL...

Note que no sql puro (em consultas) você pode escrever tudo em Português, entre outras coisas.

Já no SQL por VBA não pode;

Teste;


strSQL = "SELECT Detentos.ID, Detentos.[Nome] & Space (1) & [Sobrenome] As Detentos, Detentos.Sexo, Detentos.Naturalidade," _
& "Detentos.[Data de Nascimento] As Nascimento, Int(((Date()-[Data de Nascimento])-1)/365.25) AS Idade," _
& "Detentos.[Grau de Instrução], IIf(IsNull([Data de Nascimento])" _
& " Or [Data de Nascimento]="";"";IIf(DifDate('yyyy';[Data de Nascimento];Date())<100;" _
& " Left(DifDate('yyyy';[Data de Nascimento];Date());1) & '0/' & Left(DifDate('yyyy';[Data de Nascimento];" _
& " Date());1)+1 & '0';Left(DifDate('yyyy';[Data de Nascimento];Date());2) & '0/' & Left(DifDate('yyyy';[Data de Nascimento];Date());2)+1 & '0'))" _
& " FROM Detentos IN '" & StrPath & "'" _
& " WHERE ((UCase(Detentos.Nome) " & strSQL1 & ")) And UnidadeRequisitante='" & VarUnidade & "' and RegimeAtual='" & VarReg & "'" _
& " ORDER BY Detentos.Nome;"

Obrigado pela informação..

Não retornou valores amigão..

Grato

Caro João Paulo como a expressão acima não retornou valores..
estive pensando..

não poderiamos criar algo usando a idade que ja esta na listBox?

StrSQL = "SELECT Detentos.ID, Detentos.[Nome] & Space (1) & [Sobrenome] As Detentos, Detentos.Sexo, Detentos.Naturalidade," _
& "Detentos.[Data de Nascimento] As Nascimento, Int(((Date()-[Data de Nascimento])-1)/365.25) AS Idade," _
& "Detentos.[Grau de Instrução] FROM Detentos IN '" & StrPath & "'" _
& " WHERE ((UCase(Detentos.Nome) " & strSQL1 & ")) And UnidadeRequisitante='" & VarUnidade & "' and RegimeAtual='" & VarReg & "'" _
& " ORDER BY Detentos.Nome;"


Grato

Resolvi da seguinte maneira..


"SELECT Detentos.[Sexo], Detentos.[Data de Nascimento], Format([Data de Nascimento],'d') AS Dia," _
& " Int(((Date()-[Data de Nascimento])-1)/365.25) AS Idade, Left([Idade],2) AS IdadeRef, " _
& " IIf([IdadeRef] Between 5 And 18,'5/18',IIf([IdadeRef] Between 18 And 30,'18/30'," _
& " IIf([IdadeRef] Between 30 And 40,'30/40',IIf([IdadeRef] Between 40 And 50,'40/50'," _
& " IIf([IdadeRef] Between 50 And 60,'50/60',IIf([IdadeRef] Between 60 And 70,'60/70'," _
& " IIf([IdadeRef] Between 70 And 80,'70/80',IIf([IdadeRef] Between 90 And 100,'90/100')))))))) AS [Faixa Etaria]," _
& " Detentos.RegimeAtual, Detentos.UnidadeRequisitante FROM Detentos IN '" & StrPath & "'" _
& " WHERE UnidadeRequisitante='" & VarUnidade & "' and RegimeAtual='" & VarReg & "';"


Grato JP e Criquio

*** Esta SQL não é a que originou o tópico, é para um relatório. Mas aplicarei a mesma solução na LstBox que originou o tópico

Saudações

Mais um Resolvido

Sempre tem seus dedos mágicos em muitos dos meus resolvidos...

Grato Amigão...