¨C¦~ªº²Ä¤@­Ó¬P´Á¤»

myleoyes

¦U¦ì«e½ú§A­Ì¦n!
         «e½ú!!
         [B1] = CDate(Application.WorkDay(DateSerial(Year(Date) - 1, 12, 31), 1)) '²Ä¤@­Ó¤u§@¤Ñ
         [C1] =¨C¦~ªº²Ä¤@­Ó¬P´Á¤»½Ð°Ýµ{¦¡¬°¦ó?
              ½Ðª¾¹Dªº«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!!

myleoyes

¦^´_ 3# oobird
¶W¯Åª©¥DªGµM¶W¯Å«¢«¢!ÁÂÁ¦A¤T!!

myleoyes

¦^´_ 2# kimbal
         «e½ú!!ÁÂÁÂ!!¦A½Ð±Ð³o¤½¦¡
            D1=DATE(E3,E4,1)+E5-WEEKDAY(DATE(E3,E4,1))+(E6-(E5>=WEEKDAY(DATE(E3,E4,1)))*7)
            D3=¦~            E3=2004
            D4=¤ë            E4=7
            D5=¬P´Á¥N½X      E5=7
            D6=²Ä4­Ó¬P´Á¤»   E6=4
            ¬°¦ó¨D¥XD1=2004/6/30,¦Ó«D2004/7/24
            ½Ð¤£§[¦A½ç±ÐÁÂÁ¦A¤T!!

oobird

CDate(Application.Ceiling((DateSerial(Year(Date), 1, 1) - 7) / 7, 1) * 7 + 7)

kimbal

¦^´_ 1# myleoyes

¤ñ¸ûªø,¸Õ¸Õ¬Ý

1. DateAdd("d", 7 - WeekDay(DateSerial(Year(date), 1, 1)) + IIf(7 - WeekDay(DateSerial(Year(Now()), 1, 1)) >= 0, 0, 7), DateSerial(Year(date), 1, 1))

½Æ»s¥N½X

7 - WeekDay... ªº7ªº·N«ä¬°¬P´Á6
6 - WeekDay... ªº¸Ü¬O¬P´Á5, ¦p¦¹Ãþ±À
5 ¬°¬P´Á4
4 ¬°¬P´Á3
3 ¬°¬P´Á2
2 ¬°¬P´Á1
1 ¬°¬P´Á¤é