Dates as Numbers in Combo Box

JezLisle · #1 (**permalink**) 09-19-08, 03:21

When I fill the Combo Box it shows as a date in the list for selecting in the Combo Box. Once I select the Date I want it then changes back to its number format.

I have tried using the code below and still no joy, where am I going wrong?

Code:

Private Sub cboGetDate_Change()
    cboGetDate.Text = CLng(Format(cboGetDate.Value, "dd/mm/yyyy"))
End Sub

I have raised this thread in

http://www.excelforum.com/excel-prog...combo-box.html

and had no joy as yet...

JezLisle · #2 (**permalink**) 09-19-08, 05:11

I have changed the code to this below and now it seems to compile correctly but when selecting the date in the Combo Box it still shows as a date number and not as the date format.

where am I going wrong?

Code:

Private Sub cboGetDate_Change()
    Dim GetDate As Date
    If GetDate = CDate(cboGetDate.Value) Then
           cboGetDate.Value = Format(CDate(cboGetDate.Value), "dd/mm/yyyy")
        Else
    End If
End Sub

JezLisle · #3 (**permalink**) 09-19-08, 06:26

I have tried this code below and all seems to be well, as it does what I was wanting :-)

Code:

Private Sub cboGetDate_Change()
    MyDate = Format(cboGetDate.Value, "dd/mm/yyyy")
    cboGetDate.Value = Format(MyDate, "dd/mm/yyyy")
End Sub

Internet Services

Web Development

Digital Marketing

Consumer Tech