[firebase-br] Funcao para Incremento de Meses

[Fernando Reis Guimarães]

Bem ficou muito bom sua procedure mas contudo eu preciso alterar somente o
mês.

Criei esta procedure hoje, acho que vai me ajudar muito...
Quem quiser....

CREATE PROCEDURE SP_MES (
    data date,
    nmeses integer)
returns (
    result date)
as
declare variable dia integer;
declare variable mes integer;
declare variable ano integer;
begin
 DIA=extract(day from :DATA);
 MES=extract(month from :DATA);
 ANO=extract(year from :DATA);

 if ((mes + nmeses > 12) and (nmeses>0)) then
 begin
    while ((mes + nmeses) > 12) do
    begin
       nmeses = nmeses - 12;
       ano = ano + 1;
    end
 end

 if ((mes + nmeses < 1) and (nmeses<0)) then
 begin
    while ((mes + nmeses) < 1) do
    begin
       nmeses = nmeses + 12;
       ano = ano - 1;
    end
 end

 mes = mes + nmeses;
 RESULT = MES || '/' || DIA || '/' || ANO;
 suspend;
end

Atenciosamente,
Fernando Reis Guimarães.

Contatos
fernando em fernandobhz.com
http://www.fernandobhz.com
Celular 9213-3727.