Tenho um problema sÃrio ao registrar uma UDF que eu fiz no firebird.
o conteudo de uma funÃÃo da dll segue abaixo.

function Mes(Data : TDateTime) : integer; stdcall;
begin
   Result := YearOf(Data);
end;

e utilizo uma pesquisa da seguinte forma

select * from NotaFiscal
where Mes(Data) = X

onde data e um campo do tipo DATE da minha tabela.

O problema ocorre que quando a data à passada a dll, ela sempre chega como  
se fosse "30/12/1899". Acho que esse tipo de erro ocorreria caso eu  
passase uma data nula para o banco, o que nÃo ocorre.

sel alguem puder me dar uma forÃa...
-- 

Daniel A. Bastos



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que vocà faz do Yahoo! Grupos està sujeito aos:
    http://br.yahoo.com/info/utos.html

 



Responder a