caixa de combinação com datas automáticas

Question

Prezados,

Boa tarde!!

Gostaria de colocar uma caixa de combinação em um formulário que aparecesse:

Os últimos 6 meses e os próximos dois em um formato Mes / Ano

Ou seja, hoje em dia, ficaria assim:

OUTUBRO/2009
NOVEMBRO/2009
DEZEMBRO/2009
JANEIRO/2010
FEVEREIRO/2010
MARÇO/2010
ABRIL/2010
MAIO/2010
JUNHO/2010

dai a medida que passasse os meses, iria atualizando automático...

e de preferência que o cursor começasse no mÊs atual.. se eu quiser colocar algum outro mês eu vou pra baixo / pra cima na caixa de combinação, mas o padrão ficaria no mês atual
qual a forma mais fácil de fazer isso?



Grato, Rmaragno

Answer 1

Olá,

Minha sugestão é colocar num módulo algo como:

Public Sub Preenche(lista As ComboBox)
    Dim data As Date, i As Integer
    lista.RowSourceType = "value list"
    data = DateAdd("m", -6, DateSerial(Year(Date), Month(Date), 1))
    For i = 1 To 9
        lista.AddItem Format(data, "mmmm/yyyy")
        data = DateAdd("m", 1, data)
    Next
    lista.Value = Format(Date, "mmmm/yyyy")
End Sub

E no evento Ao Carregar do formulário colocaria o código:

Preenche nome_da_lista

[]'s

Alexandre ([e-mail])