- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 257
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-11-27
|
¥»©«³Ì«á¥Ñ Hsieh ©ó 2011-4-27 20:09 ½s¿è
¦^´_ 4# ikosnahc
³o°ÝÃD¦pªG¬O2010ª©´N¥i»´©ö¸Ñ¨M
¤£¹L§A¬O2002ª©¥»¨S¦³WORKDAY.INTL¨ç¼Æ
¼gÓ¦Û©w¸q¨ç¼Æ¨Ó¸Ñ¨M
MyWorkday.rar (10.22 KB)
- Function MyWorkday(star_day, days, weekend, Optional holiday As Range)
- '°Ñ¼Æ»¡©ú
- 'star_day=¶}©l¤é´Á
- 'days¤u§@¤Ñ¼Æ
- 'weekend'¡A¡A©P¥½¦³´X¤Ñ¦p©P¥ð¤@¤é´N¥Î1¡A©P¥ð¤G¤é´N¥Î2
- 'holiday°²¤é(Àx¦s®æ½d³ò)
- Application.Volatile
- Set d = CreateObject("Scripting.Dictionary")
- If Not IsEmpty(holiday) Then
- For Each a In holiday
- d(a.Value) = d.Count
- Next
- End If
- p = Sgn(days)
- Do Until s = days
- MyWorkday = star_day + i
- If Weekday(MyWorkday, 2) <= 7 - weekend Then
- n = d.exists(MyWorkday)
- If d.exists(MyWorkday) = False Then s = s + 1 * p
- End If
- i = i + 1 * p
- Loop
- End Function
½Æ»s¥N½X |
|