Subject where to place UDF DLL
Author d_dude_2003
Hello,
I created a DLL with Delphi 7, where do i place it so FireBird can
find it? I am using FB 1.5 on XP. Here is the code of my DLL, maybe
something is wrong. It seems it cant find is, says about error,
cant find entry point or module. Thanx.

library WFUDF;

uses
WFUDFFunctions in 'WFUDFFunctions.pas';

{$R *.res}

begin
end.

unit WFUDFFunctions;

interface

uses
SysUtils, Classes, DateUtils;

const
MSecsPerDay10 = MSecsPerDay * 10;
IBDateDelta = 15018;

type
PIBDateTime = ^TIBDateTime;
TIBDateTime = record
Days,
MSec10 : Integer;
end;

implementation

function IBYearsBetween(var ADate: TIBDateTime): Integer; cdecl;
export;
var
DateTime: TDateTime;
begin
with ADate do
DateTime := Days - IBDateDelta + MSec10 / MSecsPerDay10;
Result := YearsBetween(DateTime, Date)
end;

exports
IBYearsBetween;

end.