i want to write a udf with delphi.

function name is EndOfTheMonth.

input variable date,
output variable date,


function EndOfTheMonth(var AValue: TDateTime): TDateTime;
begin
Result := DateUtils.EndOfTheMonth(AValue);
end;


but this function wrong and not running. firebird send stack overflow error.


please help me.

thanks