怎样获取每月的实际工作日（即不包括周六日）

4848

请问:怎样获取每月的实际工作日（即不包括周六日）

Henry D. Sy

判断
如果是周六日，就扣掉相应的天数

ACMAIN_CHM

简单的计算方法。如下这个函数可以粗略的实现去除周六，周日。

Public Function wkday(bdt As Date, edt As Date) As Integer
    Dim dtemp As Date
   
   
    If bdt > edt Then
        dtemp = edt
        edt = bdt
        bdt = dtemp
    End If
   
    If Weekday(bdt, vbMonday) >= 6 Then
        bdt = bdt + 8 - Weekday(bdt, vbMonday)
    End If
   
    If Weekday(edt, vbMonday) >= 6 Then
        edt = edt - (Weekday(edt, vbMonday) - 5)
    End If
   
    Dim n As Integer
    n = edt - bdt + 1
    n = n - 2 * Int(n / 7)
    If Weekday(bdt, vbMonday) > Weekday(edt, vbMonday) Then
        n = n - 2
    End If
   
    wkday = n
   
End Function

1. ?wkday(#2/1/2009#,#2/14/2009#)
   
2. 10
   
3. ?wkday(#2/8/2009#,#2/13/2009#)
   
4. 5

复制代码

******************
*  一切皆有可能  *
******************
QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/SList/Access .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .

ACMAIN_CHM

但比较细致的做法，因为各企业的排班情况不同，特别是部分法定假日的不确定性（春节，中秋）。
一般来说是做一个日期表 calendar (cdate,cmode)

CDATE	CMODE
1/1/2009	9
1/2/2009	1
1/3/2009	0
1/4/2009	0
1/5/2009	1
1/6/2009	1
1/7/2009	1
1/8/2009	1
1/9/2009	1
1/10/2009	0
1/11/2009	0
1/12/2009	1
1/13/2009	1
1/14/2009	1
1/15/2009	1
1/16/2009	1
1/17/2009	0
1/18/2009	0
1/19/2009	1
1/20/2009	1
1/21/2009	1
1/22/2009	1
1/23/2009	1
1/24/2009	0
1/25/2009	9
1/26/2009	9
1/27/2009	9
1/28/2009	0
1/29/2009	1
1/30/2009	1
1/31/2009	0
2/1/2009	0
2/2/2009	1
2/3/2009	1
2/4/2009	1
2/5/2009	1
2/6/2009	1
2/7/2009	0

这样如计算d1,d2之间工作日，可以用查询

select count(*) from calendar where cmode=1 and cdate between #2009-01-01# and #2009-02-01#;



******************
*  一切皆有可能  *
******************
QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/SList/Access .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .

ycxchen

按4楼的办法,岂不是每年都要制一表?

咱家是猫

陈格曾发布过一个较完整的函数,你可以搜索下access911网站

4848

但比较细致的做法，因为各企业的排班情况不同，特别是部分法定假日的不确定性（春节，中秋）。
一般来说是做一个日期表 calendar (cdate,cmode)
CDATECMODE1/1/200991/2/200911/3/200901/4/200901/5/200911/6/2009 ...
ACMAIN_CHM 发表于 2009-2-4 22:20

此方法虽然比较麻烦,但是计算准确,谢谢指点!

ycxchen

请问，4楼表中CMODE中的1、0、9等表示什么意思？

4848

我的理解是：0表示星期六、星期天；1表示工作日；9表示假日。

huzaixin

Public Function WeekDayCount(firstDate As Date, LastDate As Date) As Integer
'计算工作日天数
    On Error GoTo Err:

    Dim i As Integer
    Dim TempDate As Date    '临时日期
    Dim Tempts As Long
    Tempts = DateDiff("d", firstDate, LastDate)
    For i = 0 To Tempts
        TempDate = DateAdd("d", i, firstDate)
        Select Case Format(TempDate, "w")
        Case 2, 3, 4, 5, 6
            WeekDayCount = WeekDayCount + 1
        End Select
    Next
Err:
    Exit Function

End Function