[firebase-br] Pegar Mes anterior e Posterior

[marcelo]

"mamão com açucar"

dá para otimizar, tem algumas variáveis sobrando, mas tá funcionando...



CREATE PROCEDURE MESANTPROX (
    L_MES VARCHAR(6))
RETURNS (
    R_DATA1 VARCHAR(6),
    R_DATA2 VARCHAR(6))
AS
declare variable WMES VARCHAR(2);
declare variable WANO VARCHAR(4);
declare variable WMES1 VARCHAR(2);
declare variable WMES2 VARCHAR(2);
declare variable WANO1 VARCHAR(4);
declare variable WANO2 VARCHAR(4);
begin
    WMES=SUBSTRING(L_MES FROM 1 FOR 2);
    WANO=SUBSTRING(L_MES FROM 3 FOR 4);
    WMES1 = SUBSTRING ( CAST(  (CAST(WMES AS INTEGER) - 1)+100 AS
VARCHAR(3)) FROM 2 FOR 2);
    WANO1 = WANO;
    if (WMES='01') then
    BEGIN
        WMES1='12';
        WANO1=CAST(CAST(WANO AS INTEGER) - 1 AS VARCHAR(4));
    END
    R_DATA1 = WMES1||WANO1;
    /* */
    WMES2 = SUBSTRING ( CAST(  (CAST(WMES AS INTEGER) + 1)+100 AS
VARCHAR(3)) FROM 2 FOR 2);
    WANO2 = WANO;
    if (WMES='12') then
    BEGIN
        WMES2='01';
        WANO2=CAST(CAST(WANO AS INTEGER) +1 AS VARCHAR(4));
    END
    R_DATA2 = WMES2||WANO2;
  suspend;
end
----- Original Message -----
From: "Adalberto Sousa Monteiro" <asm190 em gmail.com>
To: "FireBase" <lista em firebase.com.br>
Sent: Friday, June 24, 2005 10:22 AM
Subject: [firebase-br] Pegar Mes anterior e Posterior


Como faço dentro do Firebird, para pegar um mês antes e depois, de um
determinado mes passado como parametro ?

Gostaria de informar o mes 062005 e ter como resultado 052005 e 072005 ??

Valeu
Adalberto
______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.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 Anti-Virus.
Version: 7.0.323 / Virus Database: 267.8.0/27 - Release Date: 23/06/2005