como incrementar um m�s a data em uma SP??

Question

ol� amigos, estou querendo saber como incrementar um m�s a data e naum 30 dias como est�, isso em uma SP no FB 1.5, no delphi uso a fun��o  IncMonth, mais na SP estou perdido..... a� est� a SPif (vFat...

Thomaz_prg · Answer

Me lembro de ter visto algumas UDF�s que faziam isso de forma mais simples (no site da [url=www.firebase.com.br/fb]firebase[/url]) mas d� pra fazer assim:

Primeiro cria-se 4 vari�veis:

declare variable dia integer;
declare variable mes integer;
declare variable ano integer;
declare variable ndata varchar(10)

Depois � s� separar os campos e fazer a soma, para em seguida, montar novamente a data:

dia = extract( day from CampoData );
mes = extract( month from CampoData );
ano = extract( year from CampoData );

if ( :mes = 12 ) then begin
  ano = :ano + 1;
  mes = 1;
end
else 
  mes = :mes + 1;

if (:mes = 2 and :dia >28) then 
  :dia = 28;

ndata = :dia||�.�||:mes||�.�||:ano;

Ent�o � s� montar a data:

Venc = Cast(nData as Date);

A �nica observa��o � que, no caso desse c�digo, ele n�o analisa se � ano bissexto ou n�o, ou seja, se a data for 29/01/aaaa ao somar o m�s, por mais que exista uma data 29/02/aaaa ele ir� colocar 28/02/aaaa. � uma pequena falha, mas creio que d� para contornar isso.

Thomaz_prg · Answer

Ol� amigo... lembrei qual era a udf... n�o era do site da firebase n�o... � na propria lib que acompanha o firebird a fbudf... ela tem a fun��o IncMonth....

Camilo · Answer

caro amigo tomaz, obrigado pela aten��o jah uso  IncMonth no delphi  mais no FB naum sei como usar via udf.. se puder me ajudar com um exemplo, fico grato...(Y)...

Thomaz_prg · Answer

Antes de Utilizar a UDF, voc� precisa registr�-la em seu banco de dados. Para isso, abra o banco de dados e execute o script contido em
Arquivos de Programas\Firebird\Firebird_X_X\UDF\fbudf.sql

Para incrementar o m�s, basta usar a fun��o AddMonth... dessa forma

NovoValor = AddMonth( SeuCampoOuValor , QuantosMesesIncrementar )

sendo:

NovoValor um timestamp ou date.
SeuCampoOuValor um timestamp ou date
QuantosMesesIncrementar um valor inteiro.

A fun��o ir� retornar um valor do tipo TimeStamp, portanto, se for apenas para mostrar esse valor em um select, o melhor � for�ar a convers�o para o tipo date: cast( AddMonth( p1, p2 ) as Date ).

Desculpe minha falha... coloquei o nome da fun��o (UDF) como sendo IncMonth, mas o nome correto � AddMonth.

Amilton/pr · Answer

Desculpe . . . mas como � que adiciona essa UDF ao banco? Pode ser ser feito pelo IbExpert, abrindo o banco e rodando o script? Tem um exemplo . . . achei isso muito interessante...

F�rum como incrementar um m�s a data em uma SP?? #55825