好像发现了一个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
![dvubb 图片点击可在新窗口打开查看](UploadFile/2020-11/2020112710253478123.png)
程序执行错误:
此主题相关图片如下:微信图片_20201127102602.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2020-11/2020112710261646935.png)
经测试,格式化日期也不起作用:
Dim jt As Date = Format(Date.Today.AddDays(htDate),"yyyy-MM-dd")
但是本机日期格式不含星期,程序执行正常。
[此贴子已经被作者于2020/11/27 10:39:46编辑过]