- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 197
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-9-7
![2023¦~¥þ¶Ô¼ú³¹ 2023¦~¥þ¶Ô¼ú³¹](images/common/2023.png) ![2022ªê¦~¥þ¶Ô¼ú³¹ 2022ªê¦~¥þ¶Ô¼ú³¹](images/common/hu.gif) ![2021¤û¦~¥þ¶Ô¼ú³¹ 2021¤û¦~¥þ¶Ô¼ú³¹](images/common/niu.gif) ![2020¹«¦~¥þ¶Ô¼ú³¹ 2020¹«¦~¥þ¶Ô¼ú³¹](images/common/shu.gif) ![2019 ½Þ¦~¥þ¶Ô¼ú³¹ 2019 ½Þ¦~¥þ¶Ô¼ú³¹](images/common/zhu.gif) ![2018 ª¯¦~¥þ¶Ô¼ú³¹ 2018 ª¯¦~¥þ¶Ô¼ú³¹](images/common/gou.gif) ![2017 Âû¦~¥þ¶Ô¼ú³¹ 2017 Âû¦~¥þ¶Ô¼ú³¹](images/common/ji.gif) ![2016µU¦~¥þ¶Ô¼ú³¹ 2016µU¦~¥þ¶Ô¼ú³¹](images/common/hou.gif) ![2015¦Ï¦~¥þ¶Ô¼ú³¹ 2015¦Ï¦~¥þ¶Ô¼ú³¹](images/common/yang.gif) ![2014°¨¦~¥þ¶Ô¼ú³¹ 2014°¨¦~¥þ¶Ô¼ú³¹](images/common/ma.gif) ![2013³D¦~¥þ¶Ô¼ú³¹ 2013³D¦~¥þ¶Ô¼ú³¹](images/common/she.gif) ![2012Às¦~¥þ¶Ô¼ú³¹ 2012Às¦~¥þ¶Ô¼ú³¹](images/common/long.gif) ![½×¾Â°^Äm¾±³¹ ½×¾Â°^Äm¾±³¹](images/common/medal5.gif) ![¼ö¤ß¤½¯q¾±³¹ ¼ö¤ß¤½¯q¾±³¹](images/common/medal15.gif) ![2011¨ß¦~¥þ¶Ô¼ú³¹ 2011¨ß¦~¥þ¶Ô¼ú³¹](images/common/tu.gif)
|
¥»©«³Ì«á¥Ñ 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 |
|