Para quem não conhece, a função EXTRACT no firebird, por exemplo, consegue extrair de um campo Date, Time ou TimeStamp um valor único, como Dia, Mês ou Ano de uma data ou até Horas, Minutos e Segundos de uma Hora. No Access, o comando é um pouco diferente.
Veja abaixo um exemplo de como se listar os aniversariantes do Mês:
var
vMES: Integer;
begin
vMES := 11; //Fixo para Teste -> StrToInt(ComboBox1.Text);
with ADOQuery1 do
begin
Close;
sql.Clear;
Sql.Add('SELECT ALUNOS.DataNascAluno, ALUNOS.NomeAluno, ' +
'ALUNOS.EnderecoAluno, ALUNOS.BairroAluno, ' +
'ALUNOS.CidadeAluno, ALUNOS.CEPAluno FROM ALUNOS ');
Sql.Add('WHERE (Month([DataNascAluno]) = :MES) ');
Sql.Add('ORDER BY NomeAluno');
Parameters.ParamByName('MES').Value := vMES;
Open;
end;
end;
Para extrair Dia e Ano, respectivamente, use Day([Nome_Campo]) e Year([Nome_Campo]).
Vale lembrar que o valor retornado corresponde à configuração de data e hora do computador, ou seja, se estiver no formato dd/mm/yyyy (4 dígitos no ano) e a SQL utilizada for ..WHERE ( YEAR([DATA_NASC]) = 85), nenhum registro será encontrado, a menos que troque o 85 por 1985.
Veja abaixo um exemplo de como se listar os aniversariantes do Mês:
var
vMES: Integer;
begin
vMES := 11; //Fixo para Teste -> StrToInt(ComboBox1.Text);
with ADOQuery1 do
begin
Close;
sql.Clear;
Sql.Add('SELECT ALUNOS.DataNascAluno, ALUNOS.NomeAluno, ' +
'ALUNOS.EnderecoAluno, ALUNOS.BairroAluno, ' +
'ALUNOS.CidadeAluno, ALUNOS.CEPAluno FROM ALUNOS ');
Sql.Add('WHERE (Month([DataNascAluno]) = :MES) ');
Sql.Add('ORDER BY NomeAluno');
Parameters.ParamByName('MES').Value := vMES;
Open;
end;
end;
Para extrair Dia e Ano, respectivamente, use Day([Nome_Campo]) e Year([Nome_Campo]).
Vale lembrar que o valor retornado corresponde à configuração de data e hora do computador, ou seja, se estiver no formato dd/mm/yyyy (4 dígitos no ano) e a SQL utilizada for ..WHERE ( YEAR([DATA_NASC]) = 85), nenhum registro será encontrado, a menos que troque o 85 por 1985.
