Calcular maioridade no cadastro
Pessoal boa noite,
Estou desenvolvendo um sistema para um plano de saude e estou precisando criar um relatorio com os depedentes com mais de 18 anos.
NO banco de dados tenho uma tabela de dependentes com a data de nascimento, como posso fazer isso?
Estou usando Delphi 6 com MsAccess2000.
Deste já, muito obrigado.
Jorge
Estou desenvolvendo um sistema para um plano de saude e estou precisando criar um relatorio com os depedentes com mais de 18 anos.
NO banco de dados tenho uma tabela de dependentes com a data de nascimento, como posso fazer isso?
Estou usando Delphi 6 com MsAccess2000.
Deste já, muito obrigado.
Jorge
Jviana
Curtidas 0
Respostas
Bolus
28/02/2004
Caro colega,
Não utilizo o Access, por isso vamos por parte. O Access aceita comando SQL?? Se sim, poderia usar uma consulta sql com abaixo:
ou poderá utilizar:
a operação ((18*365)+4), devolve 18 anos em dias, é somando 4 dias para os anos bissextos.
Desta maneira espero ter ajudao a resolver o seu problema...
Não utilizo o Access, por isso vamos por parte. O Access aceita comando SQL?? Se sim, poderia usar uma consulta sql com abaixo:
select * from Dependente where (Cast(Now as Date)-DataNascimento) > ((18*365)+4)
ou poderá utilizar:
select * from Dependente where DataNascimento < (Cast(Now as Date)-((18*365)+4))
a operação ((18*365)+4), devolve 18 anos em dias, é somando 4 dias para os anos bissextos.
Desta maneira espero ter ajudao a resolver o seu problema...
GOSTEI 0
Joilson_gouveia
28/02/2004
Prezado jviana,
Tente o código abaixo:
qryMaioridade.SQL.Text := ´SELECT A.CODCLIENTE,A.CLIENTE FROM CLIENTES A WHERE (YEAR(CURRENT DATE)-YEAR(A.DT_NASCTO))>=18´
qryMaioridade.Open;
Tente o código abaixo:
qryMaioridade.SQL.Text := ´SELECT A.CODCLIENTE,A.CLIENTE FROM CLIENTES A WHERE (YEAR(CURRENT DATE)-YEAR(A.DT_NASCTO))>=18´
qryMaioridade.Open;
GOSTEI 0