Дата в IB хранится одним определенным форматом (правда клонов развелось... может что новое есть, но вряд ли)
см. ниже - это просто ф-ии для приложения, переводящие дату в то, что есть в IB. Это было нужно для одной ерунды при использовании "like". По моему, в твоем случае достаточно собрать куски в такой же вид, а он всегда один и тот же.

Function DateToIbDate(InDateTime: TDateTime): String;
var Year, Month, Day: Word;
TMP: string;
begin
DecodeDate(InDateTime, Year, Month, Day);
if Month=1 then TMP:='-JAN-';
if Month=2 then TMP:='-FEB-';
if Month=3 then TMP:='-MAR-';
if Month=4 then TMP:='-APR-';
if Month=5 then TMP:='-MAY-';
if Month=6 then TMP:='-JUN-';
if Month=7 then TMP:='-JUL-';
if Month=8 then TMP:='-AUG-';
if Month=9 then TMP:='-SEP-';
if Month=10 then TMP:='-OCT-';
if Month=11 then TMP:='-NOV-';
if Month=12 then TMP:='-DEC-';
DateToIbDate:=IntToStr(Day)+TMP+IntToStr(Year);
end;


Function DateToIbDate_Month_and_Year(InDateTime: TDateTime): String;
var Year, Month, Day: Word;
TMP: string;
begin
DecodeDate(InDateTime, Year, Month, Day);
if Month=1 then TMP:='-JAN-';
if Month=2 then TMP:='-FEB-';
if Month=3 then TMP:='-MAR-';
if Month=4 then TMP:='-APR-';
if Month=5 then TMP:='-MAY-';
if Month=6 then TMP:='-JUN-';
if Month=7 then TMP:='-JUL-';
if Month=8 then TMP:='-AUG-';
if Month=9 then TMP:='-SEP-';
if Month=10 then TMP:='-OCT-';
if Month=11 then TMP:='-NOV-';
if Month=12 then TMP:='-DEC-';
DateToIbDate_Month_and_Year:=TMP+IntToStr(Year);
end;

Function DateToIbDate_Year(InDateTime: TDateTime): String;
var Year, Month, Day: Word;
begin
DecodeDate(InDateTime, Year, Month, Day);
DateToIbDate_Year:=IntToStr(Year);
end;

by