iBase.ru Forum

Код: Выделить всё

CREATE PROCEDURE TEST (
    DATE_BEGIN DATE,
    DATE_END DATE)
RETURNS (
    D1 DATE,
    D2 DATE)
AS
begin
  D1 = :Date_Begin;
  D2 = :Date_End;
end
===

Фрагмент текста программы:
===
  date1:=Yesterday;
  date2:=Tomorrow;

  with IBQuery1 do
    begin
      ParamByName('date_begin').AsDateTime:=date1;
      ParamByName('date_end').AsDateTime:=date2;
      SQL.Clear;
      SQL.Add('SELECT d1, d2 FROM TEST(:date_begin, :date_end)');
      Open;

      with Memo1.Lines do
        begin
          Clear;
          Add('Значение переменной:');
          Add('date1 = ' + DateToStr(date1));
          Add('date2 = ' + DateToStr(date2));
          Add('Значение параметра:');
          Add('date_begin = ' + DateToStr(ParamByName('date_begin').AsDate));
          Add('date_end = ' + DateToStr(ParamByName('date_end').AsDate));
          Add('Значение функции:');
          Add('d1 = ' + DateToStr(FieldByName('d1').AsDateTime));
          Add('d2 = ' + DateToStr(FieldByName('d2').AsDateTime));
        end;
    end;

Код: Выделить всё

ParamByName('date_end').AsDateTime:=date2; 
SQL.Clear; 
SQL.Add('SELECT d1, d2 FROM TEST(:date_begin, :date_end)');

Код: Выделить всё

SQL.Text:='SELECT d1, d2 FROM TEST(:date_begin, :date_end)';
Prepare;
ParamByName('date_end').AsDateTime:=date2;