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

[Magno System]

Eu fiz da seguinte maneira. No meu caso o usuário ia entrar com a data do 
dia atual para frente, então peguei como base o ano 2008 mas se for entrar 
data retroativa você pode usar 1960 por exemplo ou um outro ano que você 
tenha certeza que o usuário não vai entrar com um ano anterior. Daí tem duas 
maneiras:

IF ANO IN (2000, 2004, 2008, 2012, 2016, 2020) THEN.

Esta maneira eu acabei usando, pois eu tenho certeza que ninguém vai fazer 
um parcelamento que a data da prestação ultrapasse 2020. Mas antes de fazer 
assim eu tinha feito de outra maneira:


BISSEXTO = 'N'
ANOBASE = 2000 /*PODE SER QUALQUER ANO BISSEXTO*/
WHILE ANOBASE <= :ANOAVERIFICAR DO
BEGIN
   IF (:ANOAVERIFICAR = ANOBASE) THEN
        BISSEXTO = 'Y';
   ANOBASE = ANOBASE + 4;
END


----- Original Message ----- 
From: "HPensador" <hpensador em gmail.com>
To: <lista em firebase.com.br>
Sent: Thursday, April 02, 2009 9:08 AM
Subject: [firebase-br] FB 1.0 e função MOD


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


______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
Para saber como gerenciar/excluir seu cadastro na lista, use: 
http://www.firebase.com.br/fb/artigo.php?id=1107
Para consultar mensagens antigas: http://firebase.com.br/pesquisa


--------------------------------------------------------------------------------



No virus found in this incoming message.
Checked by AVG - www.avg.com
Version: 8.0.238 / Virus Database: 270.11.35/2034 - Release Date: 04/01/09 
06:06:00