[firebase-br] FB 1.0 e função MOD

[HPensador]

Bom dia Colegas!

Estou precisando criar um SP no FB 1.0 para verificar a partir de uma 
determinada data se o ano é bisexto ou não. Tenho esta função no FB 2.1 
que já tem internamente a função MOD ...

CREATE PROCEDURE BISEXTO (
     data date)
returns (
     resultado smallint)
as
begin
   if (((mod(extract(year from :data), 4) = 0) and
       (mod(extract(year from :data), 100) <> 0)) or
       (mod(extract(year from :data), 400) = 0)) then
     resultado = 1; -- Ano bisexto
   else
     resultado = 0; -- Ano não bisexto
   suspend;
end

Estou precisando adaptar essa função para o FB 1.0 -- algum sugestão de 
como proceder na falta do MOD?

-- 
[]'s,

Hélio Oliveira
Analista de Sistemas
Delphi Developer
http://hpensador.blogspot.com/
(71) 9975-9176