Selecionar todos os registros do m�s anterior

Question

Ol� galera! Estou com o seguinte problema:Eu queria faz um select q traga todos os registros em rela��o ao per�odo do m�s anterior. Ex: o usuario iria gerar parcelas no dia 05/04/2005 com rela��o os c...

Ariovaldo · Answer

N�o sou a melhor pessoa para responder isso, mas eu tentaria usar a Function Extract Month e subtrairia 1 e passava como parametro e faria um tratamento especial para o m�s de Janeiro POis 1-1 = 0 e n�o 12

Essistemas · Answer

Eu uso esta rotina ve se te ajudaVar  Data : String ;  Hoje : String ;  Janeiro,Dezembro,Mes,Ano  : String ;  Anterior,AnoAnterior : Integer ;  Anobis: Real;Begin Hoje := DateTostr(now) ; Mes  := Copy(Hoje,4,2) ; if RdUltimo.Checked Then  begin    Anterior :=StrtoInt( Mes )-1  ;    Mes :=IntTostr( Anterior ) ;   if Anterior = 0 Then     Mes :=�12� ;    if Anterior = 1 Then     Mes := �01� ;    if Anterior = 2 Then      Mes := �02� ;    if Anterior = 3 Then     Mes := �03� ;    if Anterior = 4 Then     Mes := �04� ;    if Anterior = 5 Then     Mes := �05� ;    if Anterior = 6 Then     Mes := �06� ;    if Anterior = 7 Then     Mes := �07� ;    if Anterior = 8 Then     Mes := �08� ;    if Anterior = 9 Then     Mes := �09� ;  endelse  Anterior :=StrtoInt( Mes ) ;  Janeiro  := �01/01�+Copy(Hoje,6,5);  Ano      :=Copy (Hoje,7,6); if ( RdUltimo.Checked ) and ( Mes =�12� ) Then  begin   AnoAnterior:=StrToint(Ano)-1 ;   Ano:=IntTostr( AnoAnterior ); end; With ObjVendas.Tb_Vendas,sql do  Begin    Clear ;    Add(�Select Data,Sum(Valor)Total From MoviCaixa�) ;    Add(�Where (Data) >=:VData1 and (Data)<=:VData2�);    Add(�And Tipo = :VTipo�) ;    ParamByname(�VData1� ).AsString:= �01/�+Mes+�/�+Ano ;    ParamByname(�VTipo�).AsString:=�C� ;    if (Anterior= 4) or (Anterior= 6)      or(Anterior= 9)or (Anterior= 11) Then       ParamByname(�VData2�).AsString:=�30/�+Mes+�/�+Ano    else       ParamByname(�VData2�).AsString:=�31/�+Mes+�/�+Ano ;     if Anterior = 2 Then       begin         D...

Raserafim · Answer

rssampaio, para fazer isso diretamente no c�digo SQL (que � o mais aconselh�vel), o ideal seria se o firebird tivesse fun��es como DATEPART e DATEADD, e que tem no SQL, mas n�o achei no firebird. Mas fiz umas �gambiarras� aqui que d� certo:

select CAMPODATA
from TESTE
where cast(substring(CAMPODATA from 6 for 2) as integer) = cast(substring(current_date from 6 for 2) as integer) - 1

fiz o teste aqui como o CAMPODATA sendo do tipo DATE.
pelo que entendi vc quer pegar a data atual e diminuir um m�s, pegando assim todos os registros do m�s anterior ao m�s atual. Se for assim � o que est� acima. Caso vc queira fornecer uma data ao inv�s de pegar a data atual automaticamente, passe como par�metro:

select CAMPODATA
from TESTE
where cast(substring(CAMPODATA from 6 for 2) as integer) = cast(substring(:data from 6 for 2) as integer) - 1

Raserafim · Answer

olha s�, encontrei o que eu precisava. agora ficou mais �elegante�.
falei do DATEPART do SQL e achei um correspondente do firebird: o EXTRACT. n�o achei nada ainda como o DATEADD, mas com o extract d� pra fazer muita coisa.
o c�digo agora pode ficar assim:

select CAMPODATA
from TESTE
where extract(month from CAMPODATA) = extract(month from current_date) - 1

e caso vc queira passar o par�metro:

select CAMPODATA
from TESTE
where extract(month from CAMPODATA) = extract(month from :data) - 1

Gandalf.nho · Answer

Outra sugest�o seria usar UDF para fazer isso. Uma boa sugest�o � a biblioteca [url=//rfunc.sourceforge.net/]rFunc[/url] que possui umas fun��es muito boas....

Rssampaio · Answer

Obrigado! ae a todos q me me ajudaram, Valeu!Eu consegui resolve isso com o c�digo passado pelo raserafim q funcionou bem.T+...

Emerson Nascimento · Answer

s� uma observa��o: n�o esque�a de referenciar o ano, sen�o ser�o trazidos registros de todos os anos....

F�rum Selecionar todos os registros do m�s anterior #275671