好像发现了一个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")

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