Emily

¦U¦ì§A¦n, ªì¨ì¶Q¹Ò

³Ì«á¤@­Ó¤u§@¤Ñ

1. Function LastFridayInMonth(lngYear As Long, lngMonth As Long) As Date
   
2.     Dim lngLastDay As Long
   
3.     'define last day of the month of interest:
   
4.     lngLastDay = DateSerial(lngYear, lngMonth + 1, 0)
   
5.     'use to get last friday:
   
6.     LastFridayInMonth = lngLastDay - WeekDay(lngLastDay, vbFriday) + 1
   
7. End Function
   
8. 
   
9. Sub Check_Last_WorkDay()
   
10. 
    
11. MsgBox LastFridayInMonth(2011, 12)
    
12. 
    
13. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 9# GBKEE
2007¤]¥i¨Ï¥ÎEvaluate

    firstworkday = CDate(Evaluate("WORKDAY(DATE(YEAR(TODAY()),1,0),1)"))