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

[HPensador]

Boa tarde Eduardo!

Blz... vou fazer algumas correções.

CREATE PROCEDURE BISEXTO (ano integer)
returns (resultado smallint)
as
declare variable data date;
BEGIN
data = cast('01/03/' || ano as date)-1;
if (Extract(day from data) = 29)  THEN
      RESULTADO = 1;
ELSE
      RESULTADO = 0;
    SUSPEND;
END

**** Faltou o begin e os parenteses do if () then

> CREATE PROCEDURE BISEXTO (ano integer)
> returns (resultado smallint)
> as
> declare variable data date;
> data = cast('01/03/' || ano as date)-1;
> if Extract(day from data) = 29  THEN
>      RESULTADO = 1;
>    ELSE
>      RESULTADO = 0;
>    SUSPEND;
> END


-- 
[]'s,

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