Ver Mensaje Individual
  #3  
Antiguo 21-06-2006
pcicom pcicom is offline
Miembro
 
Registrado: may 2003
Ubicación: MONTERREY MEXICO
Posts: 253
Reputación: 21
pcicom Va por buen camino
Gracias por contestar... de echo lo que mencionas ya lo estoy realizando... he tenido problemas para crear una DLL que funcione con Firebird como una UDF..

En resumen esta es my funcion que necesito implementer

Código:
function Moratorios(nValor,nTasaM:Extended; dpHoy,dpVence,dpUPago:TDateTime):extended; cdecl;
Var
   nDias,nTasaD,nInteres:Extended;
   
begin

   nTasaD   := (nTasaM * 12) / 365;
   nDias    := dHoy - dUPago;
   nInteres := 0;
   if nDias>0 then
      nInteres := nValor * (nDias * nTasaD * 0.01);

   Result :=  nInteres;

end;
Como ves la funcion es exageradamente simple, y mi problema con la DLL y la UDF es extremadamente GRANDE...

Código:
DECLARE EXTERNAL FUNCTION f_Moratorios
    FLOAT,
    FLOAT,
    DATE,
    DATE,
    DATE
RETURNS FLOAT BY VALUE
ENTRY_POINT 'Moratorios' MODULE_NAME 'udf.dll'
Si me podrias echar una mano.. te agradeceria enormemente.... ya que tengo dias intentandolo...
__________________
Poco ha de saber el que no pregunta.. Yo por eso soy un pregunton

Última edición por pcicom fecha: 21-06-2006 a las 05:55:53.
Responder Con Cita