[vtdeleon]

Saludos

Puedes usar en SQL Extratc()

Código Delphi [-]
 with query do begin
 ....
 //*A~o*
   sql.Add('select Fecha from tabla');
   sql.Add('where Extract(year from Fecha)=:fecha1');
 //*Mes*
   sql.Add('select Fecha from tabla');
   sql.Add('where Extract(month from Fecha)=:fecha1');
 ....
 //A~o
   ParamByName('fecha1').AsInteger:=MonthOf(vfech.Date);
 //o Mes
   ParamByName('fecha1').AsInteger:=YearOf(vfech.Date);
 ....