Excel VBA 脚本格式日期 MM-DD-YYYY

【问题标题】：Excel VBA Script Format Date MM-DD-YYYYExcel VBA 脚本格式日期 MM-DD-YYYY
【发布时间】：2016-01-11 18:17:20
【问题描述】：

我需要将两个单元格的值从 dd/mm/yyyy 转换为 mm-dd-yyyy 并将这些值附加到存储过程调用。我的代码：

Dim dtInicio As String
Dim dtFim As String
Set stDate = CStr(MWS.Cells(1, "E").Value)
Set enDate = CStr(MWS.Cells(2, "E").Value)

在上面的代码之后我需要这样的东西：

wstring = "exec sp_accessFile '"+stDate+"', '"+enDate +"'

【问题讨论】：

标签： vba excel date datetime

【解决方案1】：

您不需要Set 约会。使用= 赋值就足够了。与符号（例如&），而不是加号（例如+）用于字符串连接。

VBA Format 函数应该擅长返回正确的字符串。

Dim dtInicio As String, dtFim As String
stDate = Format(MWS.Cells(1, "E").Value, "mm-dd-yyyy")
enDate = Format(MWS.Cells(2, "E").Value, "mm-dd-yyyy")

wstring = "exec sp_accessFile '" & stDate & "', '" & enDate & "'"

wstring 应该是这样的，

exec sp_accessFile '07-19-2015', '08-25-2015'

以上假设 E1:E2 是实际日期。

【讨论】：