日期格式正在切换月和日

Question

Could you please someone can help me on how to change the date formatting cause i use the following code and instead of today's date it gives me august date. I mean it takes the date of my laptop (08-sep-2015) and it returns on the excel cell (09-Aug-2015).

Private Sub UserForm_Initialize()
'testing variable
'Dim LValue As String

'LValue = Format(#4/17/2004#, "Long Date")
'close testing variable

Me.tbDate = Date


'fill combobox


For Each cell In [cartridges]
    Me.cmbCartridges.AddItem cell
Next cell

End Sub

The part that i exclude form the code is a test i made for a solution i found over the internet.

Also the text box that i want to present the date has the following code

ssheet.Cells(nr, 1) = CDate(Me.tbDate)

Answer 1

I found this and sorted my issue. Now everything its working like a charm.

Me.tbDate = Format(Date, "dd/mm/yyyy")

Answer 2

I resolved my issue with this code. I intentionally formated the cell the wrong way (excel default) and then formated it as I needed.

For j = 0 To LISTBOXNAME.ListCount - 1
LISTBOXNAME.List(j) = Format(DateValue(LISTBOXNAME.List(j)), "m/d/yyyy")
LISTBOXNAME.List(j) = Format(DateValue(LISTBOXNAME.List(j)), "dd.mm.yyyy")
Next j