[firebase-br] FB 1.0 e função MOD
Magno System
magno em speet.com.br
Qui Abr 2 09:25:50 -03 2009
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
Mais detalhes sobre a lista de discussão lista