Hi Again,

After further testing, I realise that this was insufficient info. The
issue occurs when I call the UDF (Delphi code below) with the literal
0 in place of one of the date parameters. This works under IB6 but not
under FB 1.5.1. Is this a known issue in FB?

What is the workaround?

Thanks,
Andrew

> Hi All,
>
> The UDF code below runs fine on IB6, but on FB 1.5.1, it generates:
>
> conversion error from string "0"
>
> I'm new to FB, so if someone can point out the errant line(s) and
> suggest a fix, it'll be a great help. (also, please advise if there is
> a more approprate group fior this post, thanks).
>
> TIA,
> Andrew
>
> Here's the code:
>
> function AnimalAge(dob, lact_date, test_date: PISC_QUAD):
> integer;cdecl; export;
> var
> tm_dob, tm_lact, tm_test: tm;
> dDob, dLact, dTest, dTo: TDateTime;
> res : integer;
> begin
>
> isc_decode_date(dob, @tm_dob);
> isc_decode_date(lact_date, @tm_lact);
> isc_decode_date(test_date, @tm_test);
>
> dDob := encodeDate(tm_dob.tm_year + cYearOffset,
> tm_dob.tm_mon + 1,
> tm_dob.tm_mday);
> dLact := encodeDate(tm_Lact.tm_year + cYearOffset,
> tm_Lact.tm_mon + 1,
> tm_Lact.tm_mday);
> dTest := encodeDate(tm_Test.tm_year + cYearOffset,
> tm_Test.tm_mon + 1,
> tm_Test.tm_mday);
>
> if dDob < 0 then
> result := 5
> else begin
> if dLact > 0 then
> dTo := dLact
> else if dTest > 0 then
> dTo := dTest
> else
> dTo := now();
>
> res := round((dTo - dDob)/365.25);
> if res > 100 then res := 5;
> result := res;
>
> end;
>
> end;