求助，有没有能计算某年某月有几个星期日，几个星期六

ccczzz

有没有能计算某年某月有几个星期日，几个星期六的函数。谢谢

jicheng

<>里面有的，搜索一下呀</P>
<>Function Rt_Day(BegDate As Variant) As Long <BR>Dim DateCnt As Variant<BR>Dim EndDays As Variant<BR>Dim IntDays As Integer<BR>        DateCnt = CDate(Format(BegDate, "yyyy-m-1"))<BR>        EndDays = DateAdd("d", -1, DateAdd("M", 1, DateCnt))<BR>        IntDays = 0<BR>  Do While DateCnt &lt;= EndDays<BR>            If Format(DateCnt, "ddd") = "Sun" Or _<BR>                          Format(DateCnt, "ddd") = "Sat" Then<BR>                   IntDays = IntDays + 1<BR>            End If<BR>    <BR>            DateCnt = DateAdd("d", 1, DateCnt)<BR>        Loop<BR>       Rt_Day = IntDays<BR>End Function<BR></P>

DABEN

这个是我理解的
Private Sub 月_AfterUpdate()
Dim y As Integer
Dim y1 As Integer
Dim m As Integer
Dim m1 As Integer
Dim d As Integer
Dim d1 As Integer
Dim w As Integer
Dim wsu As Integer
Dim wsa As Integer
Dim bz As Integer


y = Me.年
m = Me.月

If m = 12 Then                    '如果是12月时

y1 = y + 1
m1 = 0

Else

y1 = y
m1 = m

End If

d = Format((y1 & "/" & m1 + 1 & "/1"), "######") - Format((y & "/" & m & "/1"), "######")  '当月天数
d1 = Format((y & "/" & m & "/1"), "w") - 1                                                 '当月1号星期几?

wsu = Int((d - 8 + d1) / 7) + IIf(d1 = 0, 2, 1)                                            '当月有几个星期日
wsa = Int((d - 7 + d1) / 7) + 1                                                            '当月有几个星期六  

Me.出勤标准 = d - wsu - wsa                                                                ,当月标准出勤天数

End Sub