专家坐堂-关于这段代码Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于这段代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=143223)

--  作者：ygg8310
--  发布时间：2019/11/18 11:03:00
--  关于这段代码

Dim d As Date = new Date(2016,12,19)
Dim s As String = System.Globalization.CultureInfo.CurrentCulture.Calendar.GetWeekOfYear(Date.today, Globalization.CalendarWeekRule.FirstDay, DayOfWeek.Monday).ToString
Output.Show("周次=" & s)
这个d该如何写进去呢？语法又是哪样的？

--  作者：有点蓝
--  发布时间：2019/11/18 11:05:00
--
d写进去哪里？

--  作者：ygg8310
--  发布时间：2019/11/18 12:37:00
--

把这个改成d
Dim s As String = System.Globalization.CultureInfo.CurrentCulture.Calendar.GetWeekOfYear(Date.today, Globalization.CalendarWeekRule.FirstDay, DayOfWeek.Monday).ToString
Output.Show("周次=" & s)

--  作者：有点蓝
--  发布时间：2019/11/18 13:48:00
--
直接改就行了吧

Dim d As Date = new Date(2016,12,19)
Dim s As String = System.Globalization.CultureInfo.CurrentCulture.Calendar.GetWeekOfYear(d, Globalization.CalendarWeekRule.FirstDay, DayOfWeek.Monday).ToString