F�rum Query para o m�s anterior? #596272

13/08/2018

Bom dia amigos, no meu formul�rio de entradas, tenho uma query que calcula todas as entradas do m�s corrente. Utilizei o seguinte c�digo:

AdoQuery1.Close;
AdoQuery1.SQL.Clear;
AdoQuery1.SQL.Add(''Select Sum(Valor) as Expr1'');
AdoQuery1.SQL.Add(''from entradas'');
AdoQuery1.SQL.Add(''where Month(Data) = Month(Date()) and year(Data) = Year(Date())'');
AdoQuery1.Open;

S� que eu gostaria de inserir uma outra query para fazer o comparativo desse resultado com o resultado do m�s anterior, automaticamente, no onshow do form.

Assim, ao exibir o form, anova query faria o mesmo que essa, por�m somaria os registros do m�s anterior.

Algu�m pode me ajudar com esse c�digo?

Edilson Santiago

Curtir t�pico

+ 0

Responder

Posts

13/08/2018

Alex Lekao

Ola Bom dia!!

Voc� pode tentar utilizar um subselect ou um cross apply para retornar o m�s e os comparativos.

Atenciosamente,

Alex - Lekao

Responder

Gostei + 0

13/08/2018

Felipe Morais

Bom dia, Edilson

Se a Query deve somar os valores do m�s atual e do anterior, � poss�vel fazer na mesma Query, tente assim:

AdoQuery1.Close;
AdoQuery1.SQL.Clear;
AdoQuery1.SQL.Add(''Select Sum(Valor) as Expr1'');
AdoQuery1.SQL.Add(''from entradas'');
AdoQuery1.SQL.Add(''where (Month(Data) = Month(Date()) and year(Data) = Year(Date()) and Month(Data) - 1 = Month(Date()) - 1 and year(Data) = Year(Date()))');
AdoQuery1.Open;

Veja se isto ajuda, abra�os.

Responder

Gostei + 0

14/08/2018

Emerson Nascimento

voc� pode obter o valor do m�s atual e o valor do m�s anterior na mesma instru��o:

Select
   sum(case when Month(Data)  = Month(Date()) then Valor else 0 end) as VlrMesAtual,
   sum(case when Month(Data) <> Month(Date()) then Valor else 0 end) as VlrMesAnterior
from entradas
where (Month(Data) = Month(Date()) and year(Data) = Year(Date()))
  or (Month(Data) = Month(Date()-30) and year(Data) = Year(Date()-30))

Responder

Gostei + 0