التعامل مع التاريخ في firebird

[bassem_43]

السلام عليكم
وجدت الحل و الحمد لله

PHP كود :

Var
D1 : TdateTime;
x:Integer; 


PHP كود :

x:=StrToInt(edt1.Text)  ;
     D1:=IncYear(date,-x);
with DataModule1.filtageExper do
    begin
      Close;
      SQL.Clear;
     SQL.Add('select NUM_PERS,NOM,PRENOM,DATE_NAIS,ADRESSE,SEX,DATE_INSTA,UNITE,GRADE,NUM_CORP,NOM_COR,NUM_GRA,NOM_GRADE,APP_COR,NUM_SER,NOM_SERV,NOM_UNI,NUM_UNI,APPER_SER');
     SQL.Add(' FROM PERSONEL,CORPS,GRADES,SERVICE,UNITE');
     SQL.Add(' WHERE (PERSONEL.UNITE=UNITE.NUM_UNI) AND (PERSONEL.GRADE=GRADES.NUM_GRA) AND (SERVICE.NUM_SER=UNITE.APPER_SER) AND (CORPS.NUM_CORP=GRADES.APP_COR) AND (DATE_INSTA < :F1)');

       Params.ParamByName('F1').Value:= D1;

      Open;

    end; 


شكرا لكم جميعا