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

[HPensador]

Bom dia Magno!

Obrigado por sua atenção...
Bem conversando com um colega aqui na empresa acabamos chegando a essa 
função para o FB 1.0 (testada e funcionando 100%):

CREATE PROCEDURE BISEXTO (
     ano integer)
returns (
     resultado smallint)
as
declare variable mod_4 integer;
declare variable mod_100 integer;
declare variable mod_400 integer;
BEGIN
   SELECT :ANO - (CAST(:ANO/4 AS INTEGER) * 4) FROM RDB$DATABASE INTO 
:MOD_4;
   SELECT :ANO - (CAST(:ANO/100 AS INTEGER) * 100) FROM RDB$DATABASE 
INTO :MOD_100;
   SELECT :ANO - (CAST(:ANO/400 AS INTEGER) * 400) FROM RDB$DATABASE 
INTO :MOD_400;

   IF (((:MOD_4 = 0) AND (:MOD_100 <> 0)) OR (:MOD_400 = 0))  THEN
     RESULTADO = 1;
   ELSE
     RESULTADO = 0;
   SUSPEND;
END

Pronto... agora se algum colega precisar esta aí prontinha - é só usar.

-- 
[]'s,

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