如何将DTPicker.Value格式改为"mmmm dd, yyyy"并适配Access查询

DTPicker的Value属性本身是日期/时间类型，如果只是需要将其转换为指定格式的字符串，直接用Format函数处理即可：

Dim formattedDate As String
formattedDate = Format(DTPicker1.Value, "mmmm dd, yyyy")
' 示例输出："January 05, 2024"

如果是希望DTPicker控件本身显示这个格式，需要设置它的自定义格式属性：

' 在窗体加载或初始化时设置
DTPicker1.Format = dtpCustom ' 先切换为自定义格式模式
DTPicker1.CustomFormat = "mmmm dd, yyyy"

这样控件就会直接以"月份全称 日期, 年份"的样式展示选中的日期了。

你的核心问题是：Access表中Date_today是短文本类型，存储格式为"mmmm dd, yyyy"，但原代码用日期格式#mm/dd/yyyy#查询，导致格式不匹配。这里有两种可行的解决思路：

思路1：将查询参数转换为匹配的文本格式（直接字符串比较） #

把DTPicker的日期转换为和字段一致的"mmmm dd, yyyy"字符串，然后用单引号包裹（因为是文本值），参与SQL查询：

Dim SSql As String
Dim DateFrom As String
Dim DateTo As String

' 将日期转换为和字段一致的文本格式
DateFrom = Format(DTPicker1.Value, "mmmm dd, yyyy")
DateTo = Format(DTPicker2.Value, "mmmm dd, yyyy")

SSql = "SELECT * INTO [Sheet1] In 'C:\Users\MORALES.JANNELYN\Documents\Text1.xls' 'EXCEL 8.0;' FROM Jannelyn_Morales "
' 文本值用单引号包裹，使用字符串Between比较
SSql = SSql & " Where Date_today Between '" & DateFrom & "' And '" & DateTo & "'"
con1.Execute SSql

⚠️ 注意：这种方式是字符串字典序比较，不是真正的日期顺序。比如"February 01, 2024"会被认为比"January 10, 2024"大（因为字母F在J前面），如果你的日期跨月份，可能得到不符合预期的结果。

思路2：将文本字段转换为日期后再比较（推荐） #

更可靠的方式是在SQL中将文本类型的Date_today转换为日期类型，再和标准日期格式的参数比较，这样能保证日期顺序的准确性：

Dim SSql As String
Dim DateFrom As String
Dim DateTo As String

' 保持原日期格式转换（用于日期比较）
DateFrom = Format(DTPicker1.Value, "\#mm\/dd\/yyyy\#")
DateTo = Format(DTPicker2.Value, "\#mm\/dd\/yyyy\#")

SSql = "SELECT * INTO [Sheet1] In 'C:\Users\MORALES.JANNELYN\Documents\Text1.xls' 'EXCEL 8.0;' FROM Jannelyn_Morales "
' 用CDate将文本字段转为日期，再做日期范围比较
SSql = SSql & " Where CDate(Date_today) Between " & DateFrom & " And " & DateTo & ""
con1.Execute SSql

这种方式不受文本格式的限制，只要Date_today的内容是合法的日期文本，CDate就能正确转换，保证查询结果的准确性。

💡 额外建议：如果可以修改Access表结构，强烈建议将Date_today字段改为日期/时间类型，这样不仅查询更高效准确，还能避免文本存储日期带来的格式错误、排序混乱等问题。

内容的提问来源于stack exchange，提问作者Jannelyn