以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  周换算  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=138362)
--  作者：yifan3429
--  发布时间：2019/7/29 17:49:00
--  周换算
日期列属于日期  周列输入当前周数据

例如 日期列输入  2019-7-28    周列根据计算自动获取 52

e.DataRow("日期") = Date.Today()
e.DataRow("姓名") = User.Name

e.DataRow("周") = Date.Today()（如何返回周）

[此贴子已经被作者于2019/7/29 18:33:03编辑过]
--  作者：有点蓝
--  发布时间：2019/7/29 20:10:00
--  
Dim d As Date = Date.Today
Dim s As String = System.Globalization.CultureInfo.CurrentCulture.Calendar.GetWeekOfYear(Date.today, Globalization.CalendarWeekRule.FirstDay, DayOfWeek.Monday).ToString
Output.Show("周次=" & s)