[求助]一个时间设置的问题！！！！！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim b1 As WinForm.Label = e.form.Controls("绩效录入与审查Label40")

Dim b2 As WinForm.Label = e.form.Controls("绩效录入与审查Label41")

Dim b3 As WinForm.Label = e.form.Controls("绩效录入与审查LabelA")

Dim b4 As WinForm.Label = e.form.Controls("绩效录入与审查Label50")

Dim b5 As WinForm.Label = e.form.Controls("绩效录入与审查Label51")

b1.Text = Tables("绩效录入与审查_绩效录入与审查Table1").Compute("count(审核状态)", "审核状态 = 0 and SubString(Convert([检查日期],'System.String'),1,10) = #" & Functions.Execute("服务器时间") & "#")

b2.Text = Tables("绩效录入与审查_绩效录入与审查Table1").Compute("count(审核状态)", "审核状态 = 0 and SubString(Convert([检查日期],'System.String'),1,10) < #" & Functions.Execute("服务器时间") & "#")

b3.Text = Tables("绩效录入与审查_绩效录入与审查Table1").Compute("count(审核状态)", "SubString(Convert([检查日期],'System.String'),1,10) = #" & Functions.Execute("服务器时间") & "#")

Dim n As Integer = Functions.Execute("服务器时间").DayOfWeek

Dim d1 As Date = iif(n=0,Functions.Execute("服务器时间").Adddays(n-6),Functions.Execute("服务器时间").Adddays(1-n))

Dim d2 As Date = iif(n=0,Functions.Execute("服务器时间").Adddays(n),Functions.Execute("服务器时间").Adddays(7-n))

Dim d3 As Date = New Date(Functions.Execute("服务器时间").Year,Functions.Execute("服务器时间").month,1)

Dim d4 As Date = New Date(Functions.Execute("服务器时间").Year,Functions.Execute("服务器时间").month,Date.DaysInMonth(Functions.Execute("服务器时间").Year,Functions.Execute("服务器时间").Month))

b4.Text = Tables("绩效录入与审查_绩效录入与审查Table1").Compute("count(审核状态)","SubString(Convert([检查日期],'System.String'),1,10) > #" & d1.adddays(-1) & "# And SubString(Convert([检查日期],'System.String'),1,10) < #" & d2.adddays(1) & "#")

b5.text = Tables("绩效录入与审查_绩效录入与审查Table1").Compute("count(审核状态)","SubString(Convert([检查日期],'System.String'),1,10) > #" & d3.AddDays(-1) & "# And SubString(Convert([检查日期],'System.String'),1,10) < #" & d4.AddDays(1) & "#")

以上代码是一个窗口的afterload里的，由于时间的问题

出现了这个错误！！

此主题相关图片如下：未命名.jpg

要在控制面板里的区域与时间改成yyyy-mm-dd才可以请问如何改上面的代码予以解决~~~~~~

主题：[求助]一个时间设置的问题！！！！！