- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]系统日期格式冲突解决方案 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=93382)
-- 发布时间：2016/11/27 9:07:00
-- [求助]系统日期格式冲突解决方案
此主题相关图片如下：beforeloadinnertable01.png
此主题相关图片如下：beforeloadinnertable02.png
-- 发布时间：2016/11/27 9:27:00
--
因为你电脑的日期格式设置成这样的，你可以调整你电脑日期的格式
可以用代码修改，也可以直接在电脑上设置
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=82970&replyID=574979&skin=1
http://jingyan.baidu.com/article/647f0115925aee7f2148a8b5.html
-- 发布时间：2016/11/27 9:28:00
--
此主题相关图片如下：beforeloadinnertable03.png
-- 发布时间：2016/11/27 9:29:00
--
现在，可以先改成
Cdate(e.user.ExtendedValues("起始日期").split(" ")(0))
-- 发布时间：2016/11/27 10:17:00
-- 回复：（有点色）?现在，可以先改成?Cd...
此主题相关图片如下：beforeloadinnertable04.png
此主题相关图片如下：beforeloadinnertable05.png
-- 发布时间：2016/11/27 10:21:00
--
看2楼吧，改一下。或者改成不要加Cdate
-- 发布时间：2016/11/27 11:08:00
-- 回复：（有点色）看2楼吧，改一下。或者改成不要加Cda...
用2楼的第二种方法改后重启系统后，正常了。非常感谢！
-- 发布时间：2016/11/27 13:15:00
-- 回复：（有点色）因为你电脑的日期格式设置成这样的，...
那一个即将交付使用的项目如何避免这种情况的发生呢？
-- 发布时间：2016/11/27 14:03:00
--
全局代码，http://www.foxtable.com/webhelp/scr/1842.htm
<DllImport("kernel32.dll", EntryPoint := "GetSystemDefaultLCID")> _
Public Function GetSystemDefaultLCID() As Integer
End Function
<DllImport("kernel32.dll", EntryPoint := "SetLocaleInfoA")> _
Public Function SetLocaleInfo(Locale As Integer, LCType As Integer, lpLCData As String) As Integer
End Function
Public Const LOCALE_SLONGDATE As Integer = &H20
Public Const LOCALE_SSHORTDATE As Integer = &H1f
Public Const LOCALE_STIME As Integer = &H1003
beforeOpenProject事件代码
Dim x As Integer = GetSystemDefaultLCID()
SetLocaleInfo(x, LOCALE_STIME, "HH:mm:ss") \'时间格式
SetLocaleInfo(x, LOCALE_SSHORTDATE, "yyyy-MM-dd") \'短日期格式
SetLocaleInfo(x, LOCALE_SLONGDATE, "yyyy-MM-dd") \'长日期格式
\'msgbox(Date.now)
-- 发布时间：2016/11/27 16:55:00
-- 回复：（有点色）全局代码，http://www.foxtable.com/...
此主题相关图片如下：beforeloadinnertable06.png
此主题相关图片如下：beforeloadinnertable07.png