将日期格式从dd-mm-yyyy更改为yyyy-mm-dd

Question

在我的工作表中，单元格具有dd-mm-yyyy格式的日期，我正在使用这些日期进行sql查询，这些日期接受yyyy-mm-dd格式的日期格式。 为此，我将日期转换为yyyy-mm-dd格式，如下所示：-

Dim startDate As Date, endDate As Date
startdate = Format(Sheet1.Range("b1").Value, "yyyy-mm-dd")
endDate = Format(Sheet1.Range("c1").Value, "yyyy-mm-dd")

但是我以dd-mm-yyyy格式获取开始日期和结束日期。 为什么？ 任何建议...由于我是vba的新手，请忽略我的愚蠢错误（如有）。 提前致谢 ....

Answer 1

您需要将日期的新表示形式发送到数据库。 您的错误是您将DATE转换为STRING格式，然后又转换回DATE类型。

尝试这样的事情：

Dim startDate As String, endDate As String

startdate = Format(Sheet1.Range("b1").Value, "yyyy-mm-dd")
endDate = Format(Sheet1.Range("c1").Value, "yyyy-mm-dd")
...

（不能100％地确定该string是正确的关键字，但是我确定您有这个主意）。