Кроме того, что в Delphi TDateTime - вещественный тип, а Date в Interbase - целочисленный, так еще оказалось, что даты в Delphi и в Interbase считаются от разных стартовых дат.

В итоге
function Year_(var D:LongInt):Longint;
var y,m,d:Word;
begin
DecodeDate(D,y,m,v);
Result:=y;
end;

будет выдавать неверное значение.
Так вот, опытным путем установленно, что разница = 15081, вычитаем это значение из Interbase-овской даты и получаем Дельфишную

Не все такие искушенные (например я). Буду очень рад узнать про ресурс где доступно и полно расказано о создании UDF-ов под Дельфями, особенно, что касается типов данных. Для меня упомянутое в письме было находкой и в данном форуме я видел выпросы типа: "можно ли в операторе SELECT вызывать встроенные процедуры?.." и не счел большим грехом поместить свои щенячьи восторги относительно смещения дат (особенно если учесть, что в Interbase-овских *.pas - ах есть константа смещения года - 1900, а на деле-то совсем другое)