狐表里有没有自动计算当月出勤天数的函数呢 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

EXCEL里好像有个WORKDAY

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

[此贴子已经被作者于2012-9-6 9:19:20编辑过]

哈哈先谢谢狐神了

　　一、元旦：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日（星期六）上班。

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)

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

muhua	小大 2楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：等待验证帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00	Post By：2012/9/6 9:04:00 [只看该作者] 用户已被锁定

主题：狐表里有没有自动计算当月出勤天数的函数呢