主题：[求助]本机日期格式影响代码不执行

好像发现了一个BUG，麻烦老师看看，如何改写代码适应不同电脑日期格式：

 

有如下代码：

 

'全局代码
Dim dqDate As DataRow = DataTables("企业信息").SQLFind("账套编号 = '1'")
Public htDate As Integer = dqDate("合同到期预警天数")

'按钮执行代码
Dim jt As Date = Date.Today.AddDays(htDate)
Dim tbl As Table = Tables("主合同")
tbl.DataTable.loadFilter = "应收费日期 <= '" & jt & "'  And (已终止 = 0 Or 已终止 Is null)"
tbl.DataTable.loadPage = 0
tbl.DataTable.load

 

如果本机日期格式（含星期）：

此主题相关图片如下：微信截图_20201127102456.png

 程序执行错误：

此主题相关图片如下：微信图片_20201127102602.png

经测试，格式化日期也不起作用：

Dim jt As Date = Format(Date.Today.AddDays(htDate),"yyyy-MM-dd")

 

但是本机日期格式不含星期，程序执行正常。

本机日期格式肯定是不能含星期的

知道了，谢谢蓝老师！