PEGANDO OS ULTIMOS 3 MESES A PARTIR DE UMA DATA

USUARIO.EXCLUIDOS 11/12/2006 16:23:23
#189345
pessoal, estou com uma outra dúvia.

eu tenho uma tela, onde tenho o código do produto e faço a busca.

eu preciso fazer o seguinte: preciso pegar a data em que o produto foi cadastrado e mostra na consulta os últimas três meses a quantidade de produtos.

ou seja, se eu cadastrar um produto hoje (11/12/2006) então tenho que mostrar a quantidade de produtos e os meses de setembro, outubro e novembro.

como faço isso?
3LTON 11/12/2006 16:32:47
#189348
data = CDate(Day(Date)) & "/" & Month(Date-3) & "/" & Year(Date))
USUARIO.EXCLUIDOS 11/12/2006 16:39:05
#189349
Faça uma rotina parecida a essa:

  

Dim Mes1 As Integer, Mes2 As Integer, Mes3 As Integer, MesAux As Integer
Dim DataRef As Date

DataRef = Now

MesAux = Month(DataRef)

Mes1 = MesAux - 3
Mes2 = MesAux - 2
Mes3 = MesAux - 1

If Mes1 <= 0 Then Mes1 = Mes1 + 12
If Mes2 <= 0 Then Mes2 = Mes2 + 12
If Mes3 <= 0 Then Mes3 = Mes3 + 12



Espero ter ajudado
USUARIO.EXCLUIDOS 11/12/2006 16:46:55
#189354
então só q eu tenho que mostrar os 3 meses anteriores num flexgrid.

ou seja, tem q ter 3 colunas a mais na minha grid. que seriam os ultimos tres meses.

vlw
USUARIO.EXCLUIDOS 11/12/2006 17:10:53
#189359
então galera como eu posso mostrar as os nomes dos meses e colocá - los na coluna do grid?
HUGOSSOUZA 11/12/2006 18:09:03
#189372
você ja tem alguma coisa pronta pra carregar a grid?
qual grid vc ta usando?
pra mostrar os nomes dos meses você pode fazer assim:

dim mes as integer
mes = 3
MsgBox MonthName(mes)
Tópico encerrado , respostas não são mais permitidas
Voltar