Userform Combobox to choose date

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I'm having trouble, I think with formatting

Sub Userform_Initialise(
'First I populate my Combobox
Dim CountDateItem as Dat
For CountDateItem = Yesterday - 30 To Yesterday + 3
CountDate.AddItem CountDateIte
Nex

'The date is stored and displayed as text (mm/dd/yy)
'I need the date to be displayed as (dd/mm/yy
'Sometimse when I take the value from the combobox
'get the wrong date ("dd" and "mm" get swapped over

dim CombBoxDate as dat
ComboboxDate=countdate.valu
msgbox ComboBoxDat

I think I need to store the date as a date, and us
ComboBox1.Text = Format$(ComboBox1.Value, "mm/dd/yy"
but I can't work out how.

Also, am I populating the Combobox in the best way

Any help much appreciated

Thank
Rob
 
Rob

Comboboxes only store text, so you'll have to format your dates when you add
them to the cb.

CountDate.AddItem Format(CountDateItem, "dd/mm/yy")

Then when you retrieve the text from the cb, convert it back to a date.

ComboboxDate = DateValue(CountDate.Value)
 
Or use two columns: one hidden column with the actual date values and
one visible column with the date formatted as text.

--
 
Back
Top