以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  日期返回第几周  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=6338)

--  作者:wqc360
--  发布时间:2010/3/22 18:47:00
--  日期返回第几周
请问有没有日期返回第几周的代码,还有法定假日
因公司要结合劳动法计算工资,需要根据考勤计算每星期出勤天数或者工时(以星期为单位,好自动计算加班时间和工作天数)。

--  作者:wyz20130512
--  发布时间:2017/7/2 11:05:00
--  
DatePart("ww",date)
--  作者:有点甜
--  发布时间:2017/7/2 13:59:00
--  

1、法定节假日,你需要另外做一张表。

 

2、第几周,你要这样处理

 

Dim d As Date = "2017-1-9"

Dim gc As System.Globalization.GregorianCalendar = new System.Globalization.GregorianCalendar()
Dim weekOfYear As Integer = gc.GetWeekOfYear(d,System.Globalization.CalendarWeekRule.FirstDay, DayOfWeek.Monday)
Return weekOfYear