locked
caixa de combinação com datas automáticas RRS feed

  • Pergunta

  • 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
    terça-feira, 6 de abril de 2010 21:02

Todas as Respostas

  • 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 (atadolfo@gmail.com)

    quarta-feira, 7 de abril de 2010 14:42