[syrj]

Код:

var
SelStr,d1,d2:String;
begin

d1:=DateToStr(DateTimePicker2.Date-30); d2:=DateToStr(DateTimePicker2.Date);

if IBDFindKolPil.TestConnected=false then IBDFindKolPil.Connected:=true;
IBTFindDT.Active:=false; IBTFindDT.Active:=true;

SelStr:='select dt from ves16 where nvag='''+Trim(NVag_ComboBox.Text)+''' and '
+'DT between '''+d1+''' and '''+d2+''' ' ;

  With IBQFindDT do begin
  Close;
    SQL.Clear;
     SQL.Add(SelStr);
  Open;
  Last;
  First;
end;
Label6.Caption:=IBQFindDT.FieldByName('DT').AsString;
DateTimePicker1.Date:=StrToDate(IBQFindDT.FieldByName('DT').AsString);