INFORMAR Mulheres c/ ou = a 40 anos que completem aniv...

22/05/2003

0

Oi,

Colegas!!


Preciso de uma instrução em SQL que mim retorne todas as mulheres de meu cadastro de clintes que tenham 40 anos ou completem ainda neste ano(data atual).

Tenho um cadastro com nome, data_nascimento, sexo, etc....

Fico muito grato à que mim ajudar.

Um Abraço,

Erivando

´E através de meus erros que encontro meus acertos.´ (Erivando Ramos)


Erivando

Erivando

Responder

Posts

22/05/2003

Jeancamila

Uma função que calcula idade de uma pessoa:

function IdadeAtual(Nasc : TDate): Integer;
Var AuxIdade, Meses : String;
MesesFloat : Real;
IdadeInc, IdadeReal : Integer;
begin
AuxIdade := Format(´¬0.2f´, [(Date - Nasc) / 365.6]);
Meses := FloatToStr(Frac(StrToFloat(AuxIdade)));
if AuxIdade = ´0´ then
begin
Result := 0;
Exit;
end;
if Meses[1] = ´-´ then
begin
Meses := FloatToStr(StrToFloat(Meses) * -1);
end;
Delete(Meses, 1, 2);
if Length(Meses) = 1 then
begin
Meses := Meses + ´0´;
end;
if (Meses <> ´0´) And (Meses <> ´´) then
begin
MesesFloat := Round(((365.6 * StrToInt(Meses)) / 100) / 30.47)
end
else
begin
MesesFloat := 0;
end;
if MesesFloat <> 12 then
begin
IdadeReal := Trunc(StrToFloat(AuxIdade)); // + MesesFloat;
end
else
begin
IdadeInc := Trunc(StrToFloat(AuxIdade));
Inc(IdadeInc);
IdadeReal := IdadeInc;
end;
Result := IdadeReal;
end;

e/ou

select *
from cliente
where (sexo = ´F´ and extract (year from nascimento) = 2003-40)


Não testei!


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar