日期格式在Excel VBA中不起作用

Question

我的日期选择器日期遇到一些困难。 StartDate和EndDate是DatePicker和Debug中的值。Print将给我“ mm / dd / yyyy”。 我试图将日期格式更改为“ dd / mm / yyyy”，以便可以将其与来自MS Access的数据进行比较。 但这不起作用。

Sub cmdSubmit_Click()
    Dim StartDate As Date, EndDate As Date

    StartDate = DTPickStart.Value    ' 6/11/2018
    EndDate = DTPickEnd.Value        ' 6/24/2018

    StartDate = Format(StartDate, "dd/mmm/yyyy")
    EndDate = Format(EndDate, "dd/mmm/yyyy")

    Debug.Print StartDate           ' gave me 6/11/2018 instead of 11/Jun/2018
    Debug.Print EndDate
End Sub

关于我在这里做错的任何建议吗？

提前致谢！

Answer 1

格式可能以您想要的格式返回日期，但是它将转换为日期值，然后以系统的默认格式打印该日期值。 要以所需的格式存储它们，可以尝试如下操作：

Option Explicit

Sub cmdSubmit_Click()
    Dim StartDate As Date, EndDate As Date
    Dim s1 As String, s2 As String

    StartDate = #6/11/2018#
    EndDate = #6/24/2018#

    'StartDate = Format(StartDate, "dd/mmm/yyyy")
    'EndDate = Format(EndDate, "dd/mmm/yyyy")

    s1 = Format(StartDate, "dd/mmm/yyyy")
    s2 = Format(EndDate, "dd/mmm/yyyy")

    Debug.Print StartDate & " - " & s1          ' gave me 6/11/2018 instead of 11/Jun/2018
    Debug.Print EndDate & " - " & s2
End Sub

或者，如果您希望它们在单元格中作为日期，则可以将写入它们的范围的NumberFormat设置为所需的格式：

Sheet1.Range("A1") = StartDate
Sheet1.Range("A2") = EndDate
Sheet1.Range("A1:A2").NumberFormat = "dd.mmm.yyyy"

Answer 2

如果需要在VBA中格式化日期，则有两个选项：

1. 更改区域设置；
2. 写入Excel，在那里格式化并带.Text ：

---

Option Explicit

Sub TestMe()

    Dim StartDate As Date

    StartDate = #6/11/2018#
    Cells(1, 1) = StartDate
    Cells(1, 1).NumberFormat = "DD/MMM/YYYY"
    Debug.Print Cells(1, 1).Text '11.Jun.2018

End Sub

Answer 3

按照MSDN Application.International（Index）方法返回有关当前国家/地区和国际设置的信息。

当您将索引应用为xlDateOrder时

0 = month-day-year
1 = day-month-year
2 = year-month-day

因此，我们将使用此属性来覆盖系统行为。 当Excel-VBA项目用于具有各种单独区域设置的地理区域时，这尤其有用。

在下面，我将稍作调整重新编写您的代码。 格式函数返回字符串，但是您将其分配给导致此问题的日期。

Sub cmdSubmit_Click()
    Dim StartDate As Date, EndDate As Date
    Dim strStartDate as String, strEndDate as String

    StartDate = DTPickStart.Value    ' 6/11/2018
    EndDate = DTPickEnd.Value        ' 6/24/2018

    strStartDate = Format(StartDate, "dd/mmm/yyyy")
    strEndDate = Format(EndDate, "dd/mmm/yyyy")

    Debug.Print StartDate           ' It will give 11/Jun/2018
    Debug.Print EndDate
End Sub

Answer 4

感谢大家。 我设法弄清楚了，但是我投票赞成jainashish，因为它更接近于如何使用结果查询访问数据库。