Entering Dates in List Boxes ??

[AndyCapp]

Hello,

Is there any possible way that you can use an array or something like it to fill a list box with all the possible dates of the year, with just the date and month and not the year????

(ie) having it automatically display 1st January til 31st December...without the year being shown...????

Hope someone can help...
Thanks,
Andy............

[bsmith]

This code seems to work. You pass in the year that you want the dates for and it formats the date to display only the day and Month. This code puts the dates in a text box, but you can modify it to do what you are looking for I think.

Private Function PopulateDates(strForYear As String)

Dim dtStartDate As Date
Dim dtCurrentDate As Date

dtStartDate = CDate("01/01/" & strForYear)
dtCurrentDate = dtStartDate
Do While strForYear = Format(dtCurrentDate, "yyyy")
Text1.Text = Text1.Text & Format(dtCurrentDate, "dd mmm") & vbCrLf
dtCurrentDate = dtCurrentDate + 1
Loop
End Function

Private Sub Command1_Click()

PopulateDates (2000)

End Sub