vba - 将日期对象转换为格式为“YYYY-MM-DD”的字符串，而不是默认为系统格式

Question

我需要将日期转换为格式为“YYYY-MM-DD”的字符串（在 Access VBA 中）。我遇到的问题是不同计算机上的不同用户会有不同的日期格式。我首先尝试了以下方法：

dim dateString As String
dateString = Format(Date,"yyyy-mm-dd")

但是，如果用户的计算机设置将其日期格式设置为“yyyy/mm/dd”（或任何其他日期格式），那么它将根据需要转换为“yyyy-mm-dd”而不是“yyyy-mm-dd”。

我已经尝试过这样的解决方案，但是，它仍然恢复为用户的日期格式。

另外，顺便说一句，我知道 Access 以数字方式存储日期，我并没有尝试更改数据的存储方式，我只是想将日期对象转换为格式为“yyyy-mm- dd”。

标签： vbams-access

Answer 1

我能理解你想在视觉上改变，试试这个

祝你好运

Sub MyCustomDisplayDate()
    Dim dateString As String
    Dim dateDate As Date
  
    dateDate = Now
    dateString = Format(dateDate, "yyyy") & "-" & Format(dateDate, "MM") & "-" & Format(dateDate, "dd")
End Sub