如何计算某月有几个双休日?

付谦

在作工资表时，有时需要填写双休日(星期六、星期天)天数。如何用语句来实现？

lzx-shmily

a11 = Date                                               '當前日期
a12 = DateAdd("m", -1, "1/" & Format(a11, "yyyy/mmm"))    '上月第一天日期
a13 = DateValue("1/" & Format(a11, "yyyy/mmm")) - 1       '上月最後一天日期
a14 = DateDiff("ww", a12, a13)   '上月的星期天數

wuaza

select count(*) from tablename where month(日期字段)=month(date) and (weekday(日期字段)=1 or  weekday(日期字段)=7)

[此贴子已经被作者于2006-7-12 14:26:47编辑过]

andymark

Function Rt_Day(BegDate As Variant) As Long

'***************Code Start**********************************
'
'计算指定月份内星期六、日的天数
'
'BegDate 指定月份的任意日期

'用法:  Rt_day(#2006-7-1#)
'作者:   andymark    2006-7-12
'http://bbs.office-cn.net
'
'*********************************************************

Dim DateCnt As Variant
Dim EndDays As Variant
Dim IntDays As Integer
   
        DateCnt = CDate(Format(BegDate, "yyyy-m-1"))
        EndDays = DateAdd("d", -1, DateAdd("M", 1, DateCnt))
        IntDays = 0
        Do While DateCnt < EndDays
            If Format(DateCnt, "ddd") = "Sun" Or _
                          Format(DateCnt, "ddd") = "Sat" Then
                   IntDays = IntDays + 1
            End If
   
            DateCnt = DateAdd("d", 1, DateCnt)
            
        Loop
        
       Rt_Day = IntDays
End Function
'*********** Code End **************

jicheng

计算  2007-3-1  结果怎么不对呀?