日期格式是月份和日期的切换

Question

[能否请您能帮助我更改日期格式，因为我使用以下代码，而不是今天的日期，所以给了我八月的日期。我的意思是，它使用笔记本电脑的日期（2015年9月8日），并在excel单元格中返回（2015年8月9日）。

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

我从代码中排除的部分是我为通过互联网找到的解决方案所做的测试。

也要显示日期的文本框具有以下代码

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

Answer 1

我发现了这个问题并进行了排序。现在，一切都像魅力一样运作。

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

Answer 2

我使用此代码解决了我的问题。我故意以错误的方式格式化了单元格（excel默认设置），然后根据需要对其进行了格式化。

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