再次請問一下....

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2010-8-22 07:16 | 顯示全部帖子

回復 3# color790

Sub Ex()
Dim m%, d%, S$, Work_Day As Date
For m = 1 To 12
'每月的第一個工作天
If m = 1 Then
Work_Day = Evaluate("WORKDAY(""" & DateSerial(Year(Date), m, 1) & """,1)")
Else
Work_Day = DateSerial(Year(Date), m, 1)
Do Until Weekday(Work_Day, vbMonday) <= 5
Work_Day = Work_Day + 1
Loop
End If
For d = 1 To 11 '第一周到第二周最大間隔數 2010/1月為例
If DatePart("ww", DateSerial(Year(Date), m, d), vbMonday) > DatePart("ww", Work_Day, vbMonday) Then
S = S & Chr(10) & DateSerial(Year(Date), m, d)
Exit For
End If
Next
Next
MsgBox S
End Sub

複製代碼

靜思自在 : 多做多得。少做多失。