procedure TAnaFrm.YasHesapla(DogumTarihi: string);
begin
Yil:=copy(DogumTarihi,7,4);
Ay:=copy(DogumTarihi,4,2);
Gun:=copy(DogumTarihi,1,2);
Dogumtarihi:=yil+'-'+ay+'-'+gun;
YasHesaplaQry.SQL.Clear;
YasHesaplaQry.SQL.add('select(age(timestamp '''+DogumTarihi+'''))');
YasHesaplaQry.Open;
Yas:=YasHesaplaQryage.Text;
DatePartQry.SQL.Clear;
DatePartQry.SQL.add('SELECT EXTRACT (YEAR FROM INTERVAL '''+YasHesaplaQryage.Value+''')');
DatePartQry.Open;
Yil:=DatePartQrydate_part.Text;
DatePartQry.SQL.Clear;
DatePartQry.SQL.add('SELECT EXTRACT (MONTH FROM INTERVAL '''+YasHesaplaQryage.Value+''')');
DatePartQry.Open;
Ay:=DatePartQrydate_part.Text;
DatePartQry.SQL.Clear;
DatePartQry.SQL.add('SELECT EXTRACT (DAY FROM INTERVAL '''+YasHesaplaQryage.Value+''')');
DatePartQry.Open;
Gun:=DatePartQrydate_part.Text;
end;