ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] §¹¤u¤é´Á­pºâ

[µo°Ý] §¹¤u¤é´Á­pºâ

¦U¦ì¤j¤j¡A¤S·Q°Ý¤@­ÓÃö©ó¤é´Á­pºâªº°ÝÃD¡L

§Ú¦³¤@­Ó§¹¤uªº¤é¤l¡A(¨Ò:2011¦~10¤ë1¤é)¡A¦³¤@­Ó¥Í²£¤Ñ¼Æ(¦p45¤é)¡A·í¤¤­n¦©´î¬P´Á¤»¤é¤Î°²´Á¡A½Ð°Ý­n«ç¤~¥i°µ¨ì? §Úª¾¹Dnetworkdays ¦³¤j¬ù¥\¯à¦ý¥¦¬O­pºâ¤@¬P´Á¤u§@6¤Ñªº¡L¦Ó¥B¸ò§Ú·Q­nªº¦n¹³°f¦V¤F..??

¤£¬O«ÜÀ´§Aªº·N«ä, ¥Î¥Î¬Ýworkday

TOP

¦^´_ 1# ikosnahc

¤£ª¾¹D§A¬O¤£¬O­nºâ§¹¤u¤é´Áªº«e45¤u§@¤Ñªº¤é´Á¡A¦pªG³o¼Ë¥Î¼Ó¤Wªº«Øij§Y¥i

¦b¦¹»¡©ú¤@¤U¡ANETWORKDAYS©ÎWORKDAY¨ç¼Æ³£·|±N¬P´Á¤»¡B¤é±Æ°£¡A¤]´N¬O©P¥ð¤G¤é
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

§Ú¬O­nºâ§¹¤u¤é´Áªº«e45¤Ñªº¤é´Á¡L¦ý¥Îworkdayªº¸Ü¬Oºâ©P¥ð¤G¤é¡A§Ú¥u·Q¤@¬P´Á¥ð®§¤@¤Ñ ...

TOP

¥»©«³Ì«á¥Ñ 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)
  1. Function MyWorkday(star_day, days, weekend, Optional holiday As Range)
  2. '°Ñ¼Æ»¡©ú
  3. 'star_day=¶}©l¤é´Á
  4. 'days¤u§@¤Ñ¼Æ
  5. 'weekend'¡A¡A©P¥½¦³´X¤Ñ¦p©P¥ð¤@¤é´N¥Î1¡A©P¥ð¤G¤é´N¥Î2
  6. 'holiday°²¤é(Àx¦s®æ½d³ò)

  7. Application.Volatile
  8. Set d = CreateObject("Scripting.Dictionary")
  9. If Not IsEmpty(holiday) Then
  10. For Each a In holiday
  11.    d(a.Value) = d.Count
  12. Next
  13. End If
  14. p = Sgn(days)
  15. Do Until s = days
  16. MyWorkday = star_day + i
  17. If Weekday(MyWorkday, 2) <= 7 - weekend Then
  18. n = d.exists(MyWorkday)
  19.    If d.exists(MyWorkday) = False Then s = s + 1 * p
  20. End If
  21. i = i + 1 * p
  22. Loop
  23. End Function
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¹ï¤÷¥À­nª¾®¦¡A·P®¦¡B³ø®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD