Office中国论坛/Access中国论坛

标题: 如何计算某月有几个双休日? [打印本页]

作者: 付谦 时间: 2006-7-12 21:55
标题: 如何计算某月有几个双休日?
在作工资表时，有时需要填写双休日(星期六、星期天)天数。如何用语句来实现？

作者: lzx-shmily 时间: 2006-7-12 22:03
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 时间: 2006-7-12 22:26
select count(*) from tablename where month(日期字段)=month(date) and (weekday(日期字段)=1 or weekday(日期字段)=7)

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

作者: andymark 时间: 2006-7-13 00:02

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-4-10 17:43
计算 2007-3-1 结果怎么不对呀?

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)