[firebase-br] Ajuda em função

[dvdmengarda em hotmail.com]

Recentente passei a usar a TbUDF 2.2 e a achei excelente. Porém, precisei de uma função que convertesse uma data em ddmmaa ou ddmmaaaa. Olhando nas demais funções tentei implementar uma para fazer essa conversão mas não tive sucesso. Abaixo segue a forma como tentei: 

// ibexpert
declare external function DateToDMA
timestamp, integer
returns cstring(254)
entry_point 'DateToDMA' module_name 'libdiv';

// delphi
function DateToDMA(T: PFBTS; var nSetAno: integer): PChar; cdecl; export;
var
  Y, M, D: Word;
  nLen: integer;
  Ret: PChar;
begin
  DecodeDate(T^.Date, Y, M, D);
  if (nSetAno = 0) then
    nLen := 2
  else
    nLen := 4;
  Result := StrPCopy(Ret, PadL(IntToStr(D), '0', 2) + PadL(IntToStr(M), '0', 2) + PadR(IntToStr(Y), '0', nLen));
end;


No IBExpert ele dá a mensagem abaixo quando tento executar 'select datetodma(current_timestamp, 0)'
"Invalid token.
invalid request BLR at offset 89.
function DATETODMA is not defined.
module name or entrypoint could not be found."



Grato pela atenção.


David