將日期格式從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是正確的關鍵字，但是我確定您有這個主意）。