以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  狐表里有没有自动计算当月出勤天数的函数呢  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=23220)
--  作者：西瓜住持
--  发布时间：2012/9/6 8:59:00
--  狐表里有没有自动计算当月出勤天数的函数呢

EXCEL里好像有个WORKDAY
--  作者：狐狸爸爸
--  发布时间：2012/9/6 9:19:00
--  

很好算的，你告诉我目前有哪些法定节假日，农历的、公历的都列出来，剩下的我帮你搞定。

[此贴子已经被作者于2012-9-6 9:19:20编辑过]
--  作者：西瓜住持
--  发布时间：2012/9/6 9:42:00
--  

哈哈 先谢谢狐神了

 

　　一、元旦：2012年1月1日至3日放假调休，共3天。2011年12月31日（星期六）上班。
　　二、春节：1月22日至28日放假调休，共7天。1月21日（星期六）、1月29日（星期日）上班。
　　三、清明节：4月2日至4日放假调休，共3天。3月31日（星期六）、4月1日（星期日）上班。
　　四、劳动节：4月29日至5月1日放假调休，共3天。4月28日（星期六）上班。
　　五、端午节：6月22日至24日放假公休，共3天。
　　六、中秋节、国庆节：9月30日至10月7日放假调休，共8天。9月29日（星期六）上班。
--  作者：西瓜住持
--  发布时间：2012/9/6 10:06:00
--  
在线等哈~~·
--  作者：狐狸爸爸
--  发布时间：2012/9/6 10:34:00
--  
Dim lw As new List(of Date)
lw.add(#1/21/2012#)
lw.add(#1/29/2012#)
lw.add(#3/31/2012#)
lw.add(#4/1/2012#)
lw.add(#4/28/2012#)
lw.add(#9/29/2012#)
Dim jr As New List(of Date)
jr.add(#1/1/2012#)
jr.add(#1/2/2012#)
jr.add(#1/3/2012#)
jr.add(#2/22/2012#)
jr.add(#2/23/2012#)
jr.add(#2/24/2012#)
jr.add(#2/25/2012#)
jr.add(#2/26/2012#)
jr.add(#2/27/2012#)
jr.add(#2/28/2012#)
jr.add(#4/2/2012#)
jr.add(#4/3/2012#)
jr.add(#4/4/2012#)
jr.add(#4/29/2012#)
jr.add(#4/30/2012#)
jr.add(#5/1/2012#)
jr.add(#6/22/2012#)
jr.add(#6/23/2012#)
jr.add(#6/24/2012#)
jr.add(#9/30/2012#)
jr.add(#10/1/2012#)
jr.add(#10/2/2012#)
jr.add(#10/3/2012#)
jr.add(#10/4/2012#)
jr.add(#10/5/2012#)
jr.add(#10/6/2012#)
jr.add(#10/7/2012#)
Dim m As Integer = 10
Dim cnt As Integer
For i As Integer = 1 To Date.DaysInMonth(2012,m)
    Dim dt As new Date(2012,m,i)
    If jr.Contains(dt) Then
    ElseIf lw.Contains(dt) Then
        cnt = cnt +1
    ElseIf dt.DayOfWeek= 0 OrElse dt.DayOfWeek = 6 Then
    Else
        cnt = cnt +1
    End If
Next
messagebox.show(cnt)
--  作者：西瓜住持
--  发布时间：2012/9/6 12:34:00
--  

好的 谢谢啦。还有个问题  我另外开帖