[RESOLVED] combobox with consecutive dates ?

[tcurrier]

Hello,

Does anyone have a formula/function to take the current date and populate a combobox with this date and the 30 days after that ?

Thanks for any help...

[pnish]

Try something like this:

Private Sub PopulateCombo(combo As ComboBox)
 
    Dim i As Long
    
    For i = 0 To 30
        combo.AddItem DateAdd("d", i, Date)
    Next i
    combo.ListIndex = 0
    
End Sub

[tcurrier]

Thanks.... !

[bushmobile]

alternatively you could avoid calls to DateAdd and do (in the loop):

combo.AddItem Date + i

[pnish]

alternatively you could avoid calls to DateAdd and do (in the loop

Good call. Simple is better (usually) . Oh yeah, and about 60% faster too.