将日期格式从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格式获得startdate和enddate。为什么???? 任何建议...... 因为我是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是正确的关键字，但我确定您有这个想法。）