[firebase-br] Funcao para Incremento de Meses

[Francisco]

fernando.. estava testando sua procedure... e ta blz. mas quando o mes e 
bisexto... ou e um mes de 31... e o proximo de 30... ela da erro... vc ja 
conseguiu arrumar isso?
valeu
----- Original Message ----- 
From: "Fernando Reis Guimarães" <fernandobhz em gmail.com>
To: "FireBase" <lista em firebase.com.br>
Sent: Monday, October 30, 2006 9:15 PM
Subject: Re: [firebase-br] Funcao para Incremento de Meses


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.
______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
Para editar sua configuração na lista, use o endereço 
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
Para consultar mensagens antigas: http://firebase.com.br/pesquisa



-- 
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.408 / Virus Database: 268.13.17/505 - Release Date: 27/10/2006