主题：[求助]系统日期格式冲突解决方案

因为你电脑的日期格式设置成这样的，你可以调整你电脑日期的格式

可以用代码修改，也可以直接在电脑上设置

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=82970&replyID=574979&skin=1

http://jingyan.baidu.com/article/647f0115925aee7f2148a8b5.html

 现在，可以先改成

Cdate(e.user.ExtendedValues("起始日期").split(" ")(0))

看2楼吧，改一下。或者改成不要加Cdate

全局代码，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)

 不可能再报错了。执行代码，看弹出什么 msgbox(Date.now)

那单独做一个按钮执行呢？报不报错？

我测试没问题。