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

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

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

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

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

TOP

¦^´_ 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!!

TOP

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

TOP

¦^´_ 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´Á¤é
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

        ÀR«ä¦Û¦b : ¡i®É¤é²öªÅ¹L¡j¤@­Ó¤H¦b¥@¶¡°µ¤F¦h¤Ö¨Æ¡A´Nµ¥©ó¹Ø©R¦³¦hªø¡C¦]¦¹¥²¶·»P®É¶¡Ävª§¡A¤Á²ö¨Ï®É¤éªÅ¹L¡C
ªð¦^¦Cªí ¤W¤@¥DÃD