Filtering two IBTable and insert or edit IBTable

[danten]

OK.

Delphi-Quellcode:

var
  sod: TDateTime;
  set_week,start_week,end_week, set_old_week, start_old_week, end_old_week,sec: string;
  begin
(* Filter week *)
  start_week := IntToStr(dayofweek(now -1))+'.'+ IntToStr(myMonth)+'.'+IntToStr(myYear);
  end_week := IntToStr(dayofweek(now -1)+7)+'.'+ IntToStr(myMonth)+'.'+IntToStr(myYear);

  set_week := '("WHEN" >= ' + QuotedStr(start_week)
              + ') and ("WHEN" <= ' + QuotedStr(end_week)
              + ')';

  (* Filter old week *)
  sod := StrToDate(start_week) -7;
  sec := DateToStr(sod);

  start_old_week := sec;
  end_old_week := start_week;

  set_old_week := '("WHEN" >= ' + QuotedStr(start_old_week)
              + ') and ("WHEN" <= ' + QuotedStr(end_old_week)
              + ')';
.................